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

ninja37

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

start4444

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

hao3ren

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

ninja37

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

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

f4800

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

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