519995995 发表于 2014-4-23 20:26:10

谁能帮忙修改下。

(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 发表于 2014-4-23 20:50:42

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

519995995 发表于 2014-4-23 23:17:44

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

519995995 发表于 2014-4-27 00:41:45

没有人顶，自己顶把 。。

JP6325 发表于 2014-4-27 04:24:19

;;此程序基本圖檔已先建立 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 发表于 2014-4-27 23:44:50

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




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

gaics 发表于 2014-4-28 07:40:22

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

519995995 发表于 2014-5-8 08:54:36

gaics 发表于 2014-4-28 07:40 static/image/common/back.gif
"直接COPY文字"是什么意思，我一直没懂

点已有文字，复制

gaics 发表于 2014-5-8 16:15:52

给你，是不是这个样子

519995995 发表于 2014-5-9 09:01:51

gaics 发表于 2014-5-8 16:15 static/image/common/back.gif
给你，是不是这个样子

谢谢你出手相助，我试了试 文字前面出现了\A1;   是不是版本问题啊 我08版的。你04?   
页: [1] 2
查看完整版本: 谁能帮忙修改下。