简单lisp-如何删除un
你好我是autolisp新手，创建了一个lisp，可以帮助我自动完成日常任务。
这是lisp的代码。
为了更好地理解，我还附上了图像和cad文件。
我所想的是，可以从上述脚本中减少步骤的数量，以提高工作效率。
例如：
-第二个圆弧点可以自动拾取箭头的中心点。
-放置和编辑“blockb”后，应该移动对象，而不是拾取/选择刚输入的数字。
所以我请求在这个论坛的人谁可以突出或为他们提供解决方案。
如果您需要任何其他信息或需要更清楚，请告诉我。
当做
努拉
测试。图纸 尝试
(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)
)
高总成
你为我Lisp程序的工作减少了一些步骤。
然而，是否有可能自动选择文本中心（中间）的位移基点，以便减少另一个位移。
无论如何，谢谢你的努力。
如果可以的话，请解释一下，这样我可以从中学习。“grread T”和“2.2453”在这里意味着什么？
顺致敬意，
努拉
为了不打乱你的日常生活。。。
2 （cadr（grread T））->捕捉光标在屏幕上的位置。
谢谢你们和cad导师论坛。
页:
[1]