我想让lisp在第

sanju2323 · 发表于 2022-7-5 20:28:57

我希望lisp在立面标签的每个多段线的开始和结束处

标记样本。图纸

SLW210 · 发表于 2022-7-5 20:36:52

我将你的帖子转移到AutoLISP、Visual LISP和DCL论坛。

请在与您的问题最密切相关的适当论坛上发布。

BIGAL · 发表于 2022-7-5 20:44:18

首先，你可以尝试使用vl编写lisp，你可以得到PLINE的co ORD及其提升

copy

<p>(vl-load-com)</p><p>(setq obj1 (vlax-ename->vla-object (car (entsel "\npick pline"))))</p><p>(setq coords (vlax-safearray->list (vlax-variant-value(vla-get-coordinates obj1)))) ; 1st 2 variables are start last 2 are end pt</p><p>(setq ht (vla-get-elevation obj1)) ; height of pline</p><p>[code]</p>

sanju2323 · 发表于 2022-7-5 20:47:43

我已经得到了它的lisp文件，但在这个lisp文件很少出错。此文件仅生成起始边缘。我需要用多段线生成两边的边。

（定义C:MCL（）
（setq ss（ssget’（（0。“LWPOLYLINE”）））
（setq sslngth（sslength ss））
（Setq idx 0）
（重复sslngth
（setq ename（ssname ss（setq sslngth（1-sslngth）））
（setq edata（entget ename））
（setq xy（cdr（Assoc 38 edata）））
（setq xy1（cdr（Assoc 10 edata）））
（setq xx（rtos xy 2 3））
（命令“text”xy1 2 30 xx“”）
)
)

hanhphuc · 发表于 2022-7-5 20:56:38

尝试

copy


(defun c:test (/ ss i ed p [color="red"]sz[/color])
[color="red"](initget 6)
(if (not(setq sz (getdist "\nText size : ")))
(setq sz (getvar "textsize")))[/color]
 (prompt "\nSelect Contour.. ")
 (if (setq ss (ssget ":L" '((0 . "LWPOLYLINE"))))
   (repeat (setq i (sslength ss))
     (setq ed (entget (ssname ss (setq i (1- i)))))
     (foreach x (list (car (setq p (vl-remove-if ''((x) (/= (car x) 10)) ed))) (last p))
(entmakex (list        '(0 . "TEXT")'(8 . "CONTOUR LABEL")
                (cons 1 (rtos (cdr (assoc 38 ed)) 2 3))
                (cons 40[color="red"] sz[/color])
                x
                ) ;_ end of list
          ) ;_ end of entmakex
) ;_ end of foreach
     ) ;_ end of repeat
   ) ;_ end of if
 (princ)
 ) ;_ end of defun