简单lisp-如何删除un

nura235 · 发表于 2022-7-6 07:11:21

你好

我是autolisp新手，创建了一个lisp，可以帮助我自动完成日常任务。

这是lisp的代码。
为了更好地理解，我还附上了图像和cad文件。

我所想的是，可以从上述脚本中减少步骤的数量，以提高工作效率。
例如：
-第二个圆弧点可以自动拾取箭头的中心点。
-放置和编辑“blockb”后，应该移动对象，而不是拾取/选择刚输入的数字。

所以我请求在这个论坛的人谁可以突出或为他们提供解决方案。

如果您需要任何其他信息或需要更清楚，请告诉我。

当做
努拉

测试。图纸

GP_ · 发表于 2022-7-6 07:33:51

尝试

copy


(defun C:test (/ P1 P2 P3)
   (while (setq P1 (getpoint "\nSpecify insert point for arrow: "))
       (command "_-Insert" "BLOCKA" P1 "1" "1" pause ) 
       (setq P2 (cadr (grread T)))
       (setq P3 (polar P1 (angle P1 P2) 2.2453))
       (command "_pline" P1 P3 "_A" pause "")
       (command "_-Insert" "BLOCKB" pause "1" "1" "0")
       (command "_EXPLODE" "_L")
       (command "_ddedit" "_L" "")
       (command "._move" "_L" "" pause pause)
   )
   (princ)    
)