[LISP]请问飞哥和各位大侠我该如何解决这样的问题

呆呆 · 发表于 2004-1-9 16:41:00

请问飞哥和各位朋友怎么样才能在程序里调用命令”insert"和不用程序的一样
我的意思是我们在执行INSERT命令的时候在输入块名之后块就回显示出来并且随着你的下步操作变化而变化但是在程序里执行就不行必须要整个命令执行结束才能看见块
还有第二个问题我用ENTSEL选取一条多义线，我想知道在我的点选位置的相邻的两个端点我该如何做？谢谢各位

meflying · 发表于 2004-1-9 17:41:00

第一个问题用pause，根据参数的个数确定pause个数
(command "_.insert" blkname pause pause...)
第二个问题，可以使用VL，用到起点的距离判断
或者，循环，选中点到相临两顶点所成角度是否相差180度

lockmyeye · 发表于 2004-1-9 19:22:00

(COMMAND "INSERT" "块名")
(WHILE (= "INSERT" (GETVAR "CMDNAMES"))
(COMMAND PAUSE)
)
对于第二个问题：得先求出距离选中点最近的线上点，再用meflying的方法。因为选中点不一定会在线的。建议使用距离来进行查找。

龙龙仔 · 发表于 2004-1-10 07:59:00

;;用ENTSEL選取一條多義線,點選位置的相鄰的兩個端點
(defun C:TT (/ ENT PARAM CURVE-OBJ)
  (setq
PARAM (fix (vlax-curve-getparamatpoint
               (setq CURVE-OBJ (vlax-ename->vla-object
                                 (car (setq ENT (entsel)))
                              )
               )
               (vlax-curve-getclosestpointto CURVE-OBJ (cadr ENT))
            )
      )
  )
  (list       (vlax-curve-getpointatparam CURVE-OBJ PARAM)
      (vlax-curve-getpointatparam CURVE-OBJ (1+ PARAM))
  )
)
;;怎麼樣才能在程序裡調用命令insert和不用程序的一樣
(defun C:INSERT_1 (/ HOLDECHO)
  (setq HOLDECHO (getvar "CMDECHO"))
  (setvar "cmdecho" 1)
  (command "_.INSERT")
  (while (/= 0 (getvar "cmdactive"))
(command PAUSE)
  )
  (setvar "cmdecho" HOLDECHO)
  (alert "\nHello!!\"Insert\" 命令給束!!")
  (princ)
)