chenry676 发表于 2024-9-13 16:40:08

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

(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)
)

土土木木人 发表于 2024-9-14 17:53:10

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

chenry676 发表于 2024-9-15 21:26:01

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

qazxswk 发表于 2024-9-15 23:55:00

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

tomonkey239 发表于 2024-9-16 15:53:30

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

chenry676 发表于 2024-9-17 10:03:07

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

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

chenry676 发表于 2024-9-17 10:04:11

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


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

chenry676 发表于 2024-9-17 15:33:21

AutoCAD软件而且输入快捷命令提示未知命令。浩辰则正常。
页: [1]
查看完整版本: 请问我这个代码启动CAD加在就出现选择，要如何修改？