维度基线和continu

DesmetMartin · 发表于 2022-7-5 17:04:19

大家好，

我想知道是否有可能在一个命令中使用一种命令或lisp来获取continue和baseline命令？

在下图中，您可以看到我在一个命令中需要的结果。
现在它是在2个命令中完成的，需要花费大量时间。

有人能帮我吗？
谢谢

谨致问候，
马丁

BIGAL · 发表于 2022-7-5 17:15:15

有几种不同的方法可以做到这一点，建议只需使用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。通用域名格式

ssdd · 发表于 2022-7-5 17:24:12

copy

(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))
   )
 
 )