社区 › AutoLISP/Visual LISP 编程技术 › 求高手修改一下绘制多点程序。

ninja37 发表于 2020-10-14 22:51:10

求高手修改一下绘制多点程序。

求高手修改一下绘制多点程序。
因为经常要绘制多个点但是CAD命令只有绘制单个点的   多个点只能点图标和菜单
在命令行输入MULTIPLE再输入point   可以达到这样的效果
自己写的下面这个不能用 ，求高手修改一下。
(defun c:MUSPOINT()(command "MULTIPLE" "POINT" "")(princ))

start4444 发表于 2020-10-15 00:25:43

(while (setq pt (getpoint "\n指定点："))(entmake (list '(0 . "POINT") (cons 10 pt))))

hao3ren 发表于 2020-10-14 23:03:19

(defun c:p1 ()
(vl-catch-all-apply
'(lambda ()
    (while T
      (if (zerop (getvar 'CMDACTIVE))
       (command "_.point")
       (command "\\")
      )
    )
)
)
(princ)
)

ninja37 发表于 2020-10-22 18:43:46

hao3ren 发表于 2020-10-14 23:03
(defun c:p1 ()
(vl-catch-all-apply
'(lambda ()


谢谢 ，已经在使用中了 很好用

f4800 发表于 2020-11-1 21:07:49

hao3ren 发表于 2020-10-14 23:03
(defun c:p1 ()
(vl-catch-all-apply
'(lambda ()


大师   这个问题 解决没   ？？   横断面格式转换lsp程序

查看完整版本: 求高手修改一下绘制多点程序。