谁能帮忙修改下。

519995995

(DEFUN C:CD  () (command "layer" "m" "TXT-1" "c" "1" "" "")(command "LEADER" )(princ))  ;;引出线LEADER尺寸标注
1，我想不出现选项，直接COPY文字，引线进入到指定层DMM,文字进入TXT3层。。
贡献个焊缝程序，也不是我编的，同事给的。。。抛砖引玉，希望坛友们帮帮忙。。
(DEFUN C:HF ()  ;;绘制焊缝
        (PRINC "请按逆时针")
        (setq s (getvar "snapang"))
        (setq p1 (getpoint "\nstart point:"))
        (setq p2 (getpoint p1 "\End point:"))
        (setq z (getreal "\nWeld size:"))
        (COMMAND "OSNAP" "NONE")
        (command "LAYER" "M" "WELD" "C" "8" "" "")
        (setq p3 (polar p1 (angle p1 p2) (* 2 z)))
        (command "arc" p1 "e" p3 "a" 180)
        (setq p4 (polar p3 (- (angle p1 p2) (* 120 (/ PI 180))) Z))
        (setq n (- (/ (distance p1 p2) z) 2))
        (command "arc" p4 "c" p3 "a" 120)
        (setq x 1)
        (while (<= x n) (setq x (+ x 1)))
        (setvar "snapang" (angle p1 p2))
        (command "array" "last" "" "r" "" (- x 1) z)
        (setvar "snapang" 0)
        (command "OSNAP" "ENDP,MIDP,CENTER,NODE,QUADRANT,intersection,perpendicular")
        (COMMAND "LAYER" "m" "DIM" "c" "1" "" "")
        (princ)
)

519995995

补充点，文字位于引线旁边，3号色，  引线1号色

519995995

顶顶，夜深人静啊，大家早点睡哈

519995995

没有人顶，自己顶把 。。

JP6325

;;此程序基本圖檔已先建立 DMM圖層 與 TXT3 圖層 在使用以下程序


(defun c:LL(/ pt1 pt2 txt)

(SETVAR "CLAYER" "DMM")

(setq pt1 (getpoint "\n pt1:"))
(setq pt2 (getpoint pt1 "\n pt2:"))
(setq txt (getstring "\n 輸入文字:"))

(COMMAND "LEADER" pt1 pt2 "'-LAYER" "S" "TXT3" "" "" txt "")

(princ)

)

519995995

JP6325 发表于 2014-4-27 04:24
;;此程序基本圖檔已先建立 DMM圖層 與 TXT3 圖層 在使用以下程序

回复晚了，谢谢，谢谢，功能不是我想要的。设置的有点复杂 了。

gaics

"直接COPY文字"是什么意思，我一直没懂

519995995

gaics 发表于 2014-4-28 07:40
"直接COPY文字"是什么意思，我一直没懂

点已有文字，复制

gaics

给你，是不是这个样子

519995995

gaics 发表于 2014-5-8 16:15
给你，是不是这个样子

谢谢你出手相助，我试了试 文字前面出现了\A1;   是不是版本问题啊 我08版的。  你04?