维度基线和continu
大家好，我想知道是否有可能在一个命令中使用一种命令或lisp来获取continue和baseline命令？
在下图中，您可以看到我在一个命令中需要的结果。
现在它是在2个命令中完成的，需要花费大量时间。
有人能帮我吗？
谢谢
谨致问候，
马丁 有几种不同的方法可以做到这一点，建议只需使用lisp按dim顺序拾取点，保存在列表中，然后依次运行两个dim命令。
pick pt1 pt2 pt3 pt4
dim pt1 pt2, dim pt2 pt3 etc in a loop
dim base pt1 pt1v pt2 pt3 pt4 pt5 etc
Ps我一次完成水平方向，只需在垂直方向上拖出一条线。这就是我所说的自动标注，对不起，它是正确的。很确定有不同的版本，可以登陆www.Lee-mac。通用域名格式 (defun c:tt()
(setq p1 (getpoint "\nStarting Point")
p2 (getpoint p1"\nEnd Point")
nn (getint "Number:")
lst nil)
(if (and p1 p2 nn)
(progn (setq lst (dividex p1 p2 nn) sc (* (getvar "DIMTXT") (getvar "DIMSCALE")))
(mapcar '(lambda (x y) (command ".dimaligned" "_non" X "_non" Y "_non" (polar x (- (angle x y) (* 0.5 pi)) (* 5 sc)))
(command "_text" "_non" (polar x (- (angle x y) (* 0.5 pi)) (* 5.5 sc))sc(* (/ (- (angle x y) (* 0.5 pi)) pi) 180.0)(rtos (distance x p1) 2 2) "")
)lst (cdr lst))
))
)(princ)
(defun dividex ( s e i / a r sl)
(setq r (list s)
a (angle s e)
sl (/ (distance s e) i) ;
)
(repeat (fix i)
(setq r (cons (polar (car r) a sl) r))
)
)
ssdd好主意，但如果线的间距完全不同，那么它将不起作用。因此使用围栏选项。 @SSSD：这个Lisp程序。。。
这不是我真正想要的，不过还是谢谢你
@比格尔：我不明白你的意思。。 有人能帮忙吗？ 我很惊讶其他一些人没有张贴它没有那么难，看看图片，dims是在单通道完成的，它是使用围栏和ssget完成的。
比格尔，你的链接坏了。我要去编辑你的帖子。你能查一下吗？
这是一条信息：
mdbdesign，您没有访问此页面的权限。这可能是由于以下几个原因之一：
[列表=1]
[*]您的用户帐户可能没有足够的权限访问此页面。您是否试图编辑其他人的帖子、访问管理功能或其他特权系统？
[*]如果您试图发布，管理员可能已禁用您的帐户，或者它可能正在等待激活。
[/列表] 更改后，图像质量不是最好的，但只需将一条线拖动到其他线上，就会出现所有DIM。大约花了2秒钟。 我还是不知道怎么做
有人能帮忙吗？
页:
[1]