仅对外部进行尺寸标注。。

gadgetjay · 发表于 2022-7-5 15:15:51

大家好，

我必须在平面图上标注数百个看台（绘制为闭合多段线）。
我发现Lisp在“支架”的所有侧面都有尺寸。问题是我不需要内部尺寸，所以目前我使用4个Lisp。。选择所有左侧支架lisp添加左侧尺寸，底部支架lisp添加底部尺寸等。

有谁能帮我写一个只标注外部而不标注内部（多段线重叠处）的代码来阻止我变灰吗。
我认为附上的图片描述得更好。
祈祷吧！

BIGAL · 发表于 2022-7-5 15:21:42

获取所有点，然后删除内部点。

然后需要一个时钟排序例程，以便点位于列表中。然后执行dim pt1 pt2等。

hanhphuc · 发表于 2022-7-5 15:24:34

如果平面图是正方形的，IMO是可行的。

我的建议（如果是平方规划）边界框偏移内部说1%s获得交叉删除内部尺寸更容易？

BIGAL · 发表于 2022-7-5 15:27:10

好主意。用锤子敲打它，而不是花几个小时努力解决它。现在有一段时间了。

gadgetjay · 发表于 2022-7-5 15:30:07

您好，很抱歉，我们已经确定了更多展位的尺寸！
我希望场地是方形的——没有这样的运气。
我附上了一张展台轮廓图，以便你能看到我的痛苦。。
基本展位轮廓。图纸

ronjonp · 发表于 2022-7-5 15:31:57

根据您的示例图形，这里是一个良好的开端。

copy

(defun c:foo (/ lm:makereadable _colinear a b d out p pp s th)
 ;; RJP 05.03.2018
 ;; Labels exterior edges of 'stands' with edge length
 (defun _colinear (p1 p2 p3 f) (equal (+ (distance p1 p2) (distance p2 p3)) (distance p1 p3) f))
 ;; Make Readable  -  Lee Mac
 ;; Returns a given angle corrected for text readability
 (defun lm:makereadable (a)
   ((lambda (a)
      (if (and (< (* pi 0.5) a) (<= a (* pi 1.5)))
 (+ a pi)
 a
      )
    )
     (rem (+ a pi pi) (+ pi pi))
   )
 )
 (cond
   ((setq s (ssget '((0 . "lwpolyline") (8 . "BoothOutline"))))
    (setq th 500)
    (foreach pl (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
      (setq p (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget pl))))
      (setq p
      (mapcar '(lambda (a b)
                 (list (polar a (angle a b) (* 0.5 (setq d (distance a b)))) a b (angle a b) d)
               )
              p
              (append (cdr p) (list (car p)))
      )
      )
      (setq out (cons p out))
    )
    (foreach pt (setq out (apply 'append out))
      (and
 (null (vl-remove-if-not
         '(lambda (x)
            (or (equal (car pt) (car x) 1e-1) (_colinear (cadr x) (car pt) (caddr x) 1e-1))
          )
         (vl-remove pt out)
       )
 )
 (setq pp (polar (car pt) (- (cadddr pt) (/ pi 2.)) th))
 (entmakex (list '(0 . "TEXT")
                 '(100 . "AcDbEntity")
                 '(8 . "BoothOutlineLength")
                 '(100 . "AcDbText")
                 (cons 10 pp)
                 (cons 40 th)
                 '(62 . 1)
                 (cons 1 (rtos (/ (last pt) 1000.) 2 0))
                 (cons 50 (lm:makereadable (cadddr pt)))
                 '(72 . 1)
                 (cons 11 pp)
                 '(100 . "AcDbText")
                 '(73 . 2)
           )
 )
      )
    )
   )
 )
 (princ)
)
(vl-load-com)

BIGAL · 发表于 2022-7-5 15:37:18

韩，你好，

尝试学习编码，但类似的事情我做不到——当代码中有注释时，它会有所帮助，这样你就知道发生了什么。

不确定您是否打算将代码作为“独立的”it错误错误错误列表放在Ronjonp中？

ronjonp · 发表于 2022-7-5 15:40:46

很高兴听到你在学习
你说得对，这并不简单。
您不能简单地添加代码，导致列表格式错误-缺少括号或括号（）或额外的括号！要进行调试，请命令VLIDE或VLISP打开编辑器

子函数需要提供参数。
我用附加参数cw修改了之前的post#13 outline_TX函数。请重新复制
快速脏测试
你试着画两个逆时针和顺时针的矩形来测试。。

copy


(defun [b][color="blue"]outline_TX[/color][/b] (p1 p2 h [color="red"][b][u]cw[/u][/b][/color] / pl d ro)
;hanhphuc 
 (setq pl (mapcar ''((x) (list (car x) (cadr x))) (list p1 p2)))
 (mapcar ''((a b) (set a (apply b pl))) '(ro d) '(angle distance))
 (entmakex
   (mapcar 'cons
    '(0 100 100 1 10 40 50 8 71 72)
    (list "MTEXT"
          "AcDbEntity"
          "AcDbMText"
[color="red"]                  (if (or [b][u]cw[/u][/b](< (* pi 0.5) ro (* pi 1.5)) )
            (strcat (rtos d 2) "\\P ")
            (strcat "\\P " (rtos d 2))
            )[/color]
          (apply 'mapcar (cons ''((a b) (/ (+ a b) 2.)) pl )
          (if (zerop h)
            (/ d[color="red"] 10.[/color])
            h
            )
          ([color="red"]LM:[/color]MakeReadable ro)
          "OUT"
          5
          5
          )
    )
   )
 (princ)
 )

gadgetjay · 发表于 2022-7-5 15:41:30

谢谢韩，我很感激你的帮助，但我觉得自己快淹死了！

我发现如果我加上Ronjonp的密码
它将文本放在外面-这样做有问题吗？

copy

(setvar 'luprec 2)

抱歉，500内部服务器错误，回复帖子非常痛苦

在我看来，作为新手，你很难做到，
nvm我尽我所能提供帮助，例如在Ronjop的代码中，只需替换这一部分

copy

 
(defun c:foo (/ lm:makereadable _colinear a b d out p pp s th)
 ;; RJP 05.03.2018
 ;; Labels exterior edges of 'stands' with edge length
 (defun _colinear (p1 p2 p3 f) (equal (+ (distance p1 p2) (distance p2 p3)) (distance p1 p3) f))
 ;; Make Readable  -  Lee Mac
 ;; Returns a given angle corrected for text readability
 (defun lm:makereadable (a)
   ((lambda (a)
      (if (and (< (* pi 0.5) a) (<= a (* pi 1.5)))
 (+ a pi)
 a
      )
    )
     (rem (+ a pi pi) (+ pi pi))
   )
 )
 (cond
   ((setq s (ssget '((0 . "lwpolyline") (8 . "BoothOutline"))))
    (setq th 500)
    (foreach pl (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
      (setq p (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget pl))))
      (setq p
      (mapcar '(lambda (a b)
   (list (polar a (angle a b) (* 0.5 (setq d (distance a b)))) a b (angle a b) d)
        )
       p
       (append (cdr p) (list (car p)))
      )
      )
      (setq out (cons p out))
    )
    (foreach pt (setq out (apply 'append out))
      (and
 (null (vl-remove-if-not
  '(lambda (x)
     (or (equal (car pt) (car x) 1e-1) (_colinear (cadr x) (car pt) (caddr x) 1e-1))
   )
  (vl-remove pt out)
       )
 )
 (setq pp (polar (car pt) (- (cadddr pt) (/ pi 2.)) th))
(setvar 'luprec 2)
 (entmakex (list '(0 . "TEXT")
   '(100 . "AcDbEntity")
   '(8 . "BoothDim")
   '(100 . "AcDbText")
   (cons 10 pp)
   (cons 40 th)
   '(62 . 1)
   (cons 1 (rtos (/ (last pt) 1000.) 2 2))
   (cons 50 (lm:makereadable (cadddr pt)))
   '(72 . 1)
   (cons 11 pp)
   '(100 . "AcDbText")
   '(73 . 2)
    )
 )
      )
    )
   )
 )
 (princ)
)
(vl-load-com)