0

好吧,我有点卡住了,不知道该怎么办。我需要使用 AutoLisp 编写程序,它会绘制五角星。我对 AutoLisp 编程一无所知,但设法写了这个,在我看来,正确,但 AutoCAD 不会绘制任何东西。也许有人可以帮忙?(长数字是以弧度表示的角度)代码:

(defun C:Figura3 ()
  (setq pl (getpoint "\nStart coordinate: ")) ;;; Coordinates of circle center
  (setq aukst (getint "\nRadius: "))
  ;;; Coordinates of vertices
  (setq p2 (polar p1 1.570796327 aukst)) ;;; 90 (degrees) 
  (setq p3 (polar p1 2.827433388 aukst)) ;;; 162
  (setq p4 (polar p1 4.08407045 aukst)) ;;; 234
  (setq p5 (polar p1 5.340707511 aukst)) ;;; 306
  (setq p6 (polar p1 0.3141592654 aukst)) ;;; 18
  ;;; Drawing
  (command "color" "white")
  (command "lweight" 0.35)
  (command "circle" p1 aukst)
  (command "line" p2 p4 p6 p3 p5 p2 "")
)
4

1 回答 1

1

您已经定义了命令“Figura3”,但是您还需要实际调用它才能完成任何工作。加载/键入函数定义后,在命令提示符处键入 Figura3,AutoCAD 将按照您的预期运行您的函数。

不过,您的第一点也有问题。它被定义为“pl”(小写“L”),后来被称为“p1”。

于 2014-05-27T13:14:37.600 回答