怎样让Lisp编程实现：标注尺寸时的拖动效果？

lcl2094 · 发表于 2002-9-8 16:56:00

效果：
标注时，点取第一点，第二点，出现一个可以拖动的尺寸对象。
这个效果可以用Lisp模拟吗，怎么做？
谢谢！

ll_j · 发表于 2002-9-8 17:40:00

cag · 发表于 2003-6-27 12:31:00

Grread

xazhji · 发表于 2003-6-27 12:47:00

我认为应该这样：
  (setq p1 (getpoint "\n第一点:"))
  (setq p2 (getpoint "\n第二点:"))
  (command "_dimlinear" p1 p2 pause)

lcl2094 · 发表于 2004-12-7 17:46:00

这个我试过，但是效果不好

meflying · 发表于 2004-12-7 18:19:00

(command "_.dimlinear")

(while (= (getvar "cmdacitve") 1) (command pause))

mkhsj928 · 发表于 2004-12-7 19:43:00

飞哥，不太明白：

就(command "_.dimlinear")一样的效果呀！

meflying · 发表于 2004-12-7 20:05:00

和_.dimlinear一样的效果，但和(command ...)效果却不一样，一般程序中使用command运行内部命令，都是预先知道命令的运行方式，按照提示给出后面的效果，但有些命令有很多选项，你无法确定后面参数的个数，而我的可以做到与原命令完全一致如 (setq p1 (getpoint "\n第一点:"))
(setq p2 (getpoint "\n第二点:"))
(command "_dimlinear" p1 p2 pause) 只能做到选择两点进行标注，而无法使用object选项，选择对象标注这样做就是为了最大限度地满足程序中使用内部命令时，使用过程与原命令保持一直

mkhsj928 · 发表于 2004-12-7 21:33:00

那比如说这个命令怎样实现?

(command"_.leader" pt1 pt2 "a" "文字" "")

运行时只知道pt1，怎样暂停之后输入pt2后继续执行？pt2是用（grread）动态取得的，只有鼠标按下时才继续执行。

meflying · 发表于 2004-12-8 08:30:00

为什么要用grread?

(command"_.leader" pt1 pause "a" "文字" "")

账号		自动登录	找回密码
密码			注册

怎样让Lisp编程实现：标注尺寸时的拖动效果？

用Vlisp吧，用Vl-cmdf函数直接调用标注命令，用Alisp可能无法实现。