请问我这个代码启动CAD加在就出现选择，要如何修改？

chenry676

(defun c:BJGG100 ()
  (defun aaa (s1 / el p1 p2 rad p3 p4)
    (setq el  (entget s1)
          p1  (cdr (assoc 10 el))
          p2  (cdr (assoc 11 el))
          rad (angle p1 p2)
          p3  (polar p1 (+ (* 0.25 pi) rad) 100)
          p4  (polar p2 (+ (* 0.75 pi) rad) 100)
    )
    (command "pline" p3 p1 p2 p4 "")
    (entdel s1)
  )
  (setvar "osmode" 0)
  (setq ss (ssget '((0 . "line")))
          i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (aaa s1)
  )
  (princ)
)

土土木木人

尾部增加
(c:BJGG100)
加载就自动运行

chenry676

我是不想加载就出现选择窗口。

qazxswk

我加载没有出现选择窗口，是不是跟你电脑上的其他插件有冲突，把这个插件的局部变量写上去，看行不行。

tomonkey239

(setq ss (ssget '((0 . "line")))
          i  -1
  )
改为： (setq ss (ssget "x" '((0 . "line")))
          i  -1
  )

chenry676

qazxswk 发表于 2024-9-15 23:55
我加载没有出现选择窗口，是不是跟你电脑上的其他插件有冲突，把这个插件的局部变量写上去，看行不行。

浩辰不会出现窗口，AutoCAD会。

chenry676

tomonkey239 发表于 2024-9-16 15:53
(setq ss (ssget '((0 . "line")))
          i  -1
  )

这样修改后，加载就自动画了6条带勾的线段。还是不行。

chenry676

AutoCAD软件而且输入快捷命令提示未知命令。浩辰则正常。