长风（尚品） 发表于 2013-1-10 16:56:42

源码修改

下面代码是左边效果，谁能帮我修改成右边效果呀？我在这里谢谢了
(defun c:TF()
(prompt " 【剖面符号】")
(setvar "ORTHOMODE" 1)
(setq oldcmdecho (getvar "cmdecho"))
(setq oldosmode (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 16417)
(setq bili (getvar "dimscale"))
(setq pt1 (getpoint "\n剖切位置起始点(剖切符号内侧):"))
(setq pt1x (car pt1) pt1y (cadr pt1))
(setq pt2 (getpoint pt1 "\n剖切位置结束点(剖切符号内侧):"))
(setq pt2x (car pt2) pt2y (cadr pt2))
(setq pt4x (/ (+ pt1x pt2x) 2))
(setq pt4y (/ (+ pt1y pt2y) 2))
(setq pt4 (list pt4x pt4y))
(setq ang (angle pt1 pt2))
(setq pt5 (polar pt4 (+ ang (* pi 0.5)) 500))
(setq pt1a (polar pt1 (+ ang pi) (* bili 8)))
(setq pt2a (polar pt2 ang (* bili 8)))
(command "pline" pt1 "w" (* bili 0.8) (* bili 0.8) pt1a "")
(setq l_ast (entlast))
(command "change" l_ast "" "p" "c" 3 "" )
(command "pline" pt2"w" (* bili 0.8) (* bili 0.8) pt2a "")
(setq l_ast (entlast))
(command "change" l_ast "" "p" "c" 3 "" )
(setq tn (getstring "\n剖面代号："))
(setq pt3 (getpoint pt2a "\n剖面代号位置:"))
(command "-style" "zh" "" 0 1 0 "n" "n" "n")
(command "-text" pt3 (* bili 5) 0 tn)
(setq l_ast (entlast))
(command "mirror" l_ast "" pt4 pt5 "n")
(command "-style" "standard" "" 0 0.75 0 "n" "n" "n")
(setvar "cmdecho" oldcmdecho)
(setvar "osmode" oldosmode)
(setvar "PLINEWID" 0)
(setvar "ORTHOMODE" 0)
(setvar "AUTOSNAP" 61)
(print)
)

长风（尚品） 发表于 2013-1-11 08:51:56

没人吗？自已先顶一个

长风（尚品） 发表于 2013-1-12 10:52:42

高手们都那里去了？

长风（尚品） 发表于 2013-1-15 08:49:44

等待高出的出现，花儿都谢了

长风（尚品） 发表于 2013-1-23 13:05:13

等待高出的出现，花儿都谢了

潇湘飞雨 发表于 2013-3-7 13:57:35

菜鸟表示无奈帮顶了

sxm121233 发表于 2015-2-3 17:11:54

不知道什么情况啊

风流少年时 发表于 2015-2-5 12:37:08

(defun c:TF()
(prompt " 【剖面符号】")
(setvar "ORTHOMODE" 1)
(setq oldcmdecho (getvar "cmdecho"))
(setq oldosmode (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 16417)
(setq bili (getvar "dimscale"))
(setq pt1 (getpoint "\n剖切位置起始点(剖切符号内侧):"))
(setq pt1x (car pt1) pt1y (cadr pt1))
(setq pt2 (getpoint pt1 "\n剖切位置结束点(剖切符号内侧):"))
(setq pt2x (car pt2) pt2y (cadr pt2))
(setq pt4x (/ (+ pt1x pt2x) 2))
(setq pt4y (/ (+ pt1y pt2y) 2))
(setq pt4 (list pt4x pt4y))
(setq ang (angle pt1 pt2))
(setq pt5 (polar pt4 (+ ang (* pi 0.5)) 500))
(setq pt1a (polar pt1 (+ ang pi) (* bili 8)))
(setq pt1b (polar pt1a (+ ang (* 0.5 pi)) (* bili 8)))
(setq pt2a (polar pt2 ang (* bili 8)))
(setq pt2b (polar pt2a (+ ang (* 0.5 pi)) (* bili 8)))
(command "pline" pt1 "w" (* bili 0.8) (* bili 0.8) pt1a pt1b "")
(setq l_ast (entlast))
(command "change" l_ast "" "p" "c" 3 "" )
(command "pline" pt2"w" (* bili 0.8) (* bili 0.8) pt2a pt2b "")
(setq l_ast (entlast))
(command "change" l_ast "" "p" "c" 3 "" )
(setq tn (getstring "\n剖面代号："))
(setq pt3 (getpoint pt2a "\n剖面代号位置:"))
(command "-style" "zh" "" 0 1 0 "n" "n" "n")
(command "-text" pt3 (* bili 5) 0 tn)
(setq l_ast (entlast))
(command "mirror" l_ast "" pt4 pt5 "n")
(command "-style" "standard" "" 0 0.75 0 "n" "n" "n")
(setvar "cmdecho" oldcmdecho)
(setvar "osmode" oldosmode)
(setvar "PLINEWID" 0)
(setvar "ORTHOMODE" 0)
(setvar "AUTOSNAP" 61)
(print)
)
页: [1]
查看完整版本: 源码修改