陈同学 发表于 2020-11-6 08:48:45

请大佬们帮我看看下面这段代码为啥不能实现延伸，多谢啦


[*](defun c:ec()
[*](setq ss(ssget))
[*]
[*]    (setq s1 (ssname ss 0))
[*]    (setq s2 (ssname ss 1))
[*]
[*](command "extend" s1 "" s2 "")
[*](princ)
[*]
[*])

jun353835273 发表于 2020-11-6 08:59:21

本帖最后由 jun353835273 于 2020-11-6 09:00 编辑

命令行单步调试看提示
(defun c:ec()
(setq ss(ssget))
(setq s1 (ssname ss 0))
(command "extend" s1 "" "c" (GETPOINT "\nPick the First point") (GETPOINT "\nPick the Second point") "" )
(princ)
)
页: [1]
查看完整版本: 请大佬们帮我看看下面这段代码为啥不能实现延伸，多谢啦