如何才可以做到选择尺寸,点选要放置的位置,就可以达到台图的效果.
如何才可以做到选择尺寸,点选要放置的位置,就可以达到台图的效果.求高手帮忙
夹点操作或者S拉伸满足不了你？。。。 fl202 发表于 2015-2-4 08:54 static/image/common/back.gif
夹点操作或者S拉伸满足不了你？。。。
谢谢你的回复.
我自己做了一个简单的,不过不理想,只要有物体在同一个点上就会被一起拉伸.不是只拉伸尺寸.(defun c:cd ()
(COMMAND "_.UCS" "W")
(setq ss (entsel "\n请选择坐标标注:")
p1 (getpoint "请选择文字的位置:")
a2 (entget (car ss))
P3 (cdr (ASSOC 13 a2))
P4 (cdr (ASSOC 14 a2))
p5 (POLAR P4 (* 1.5 pi) 0.001)
p6 (POLAR P4 (* 0.5 pi) 0.001))
(vl-cmdf "stretch" "C" p5 p6 "" p4 p1)
) 本帖最后由 ZZXXQQ 于 2015-2-6 07:05 编辑
改了一下。(defun c:cd ()
(command "_.UCS" "W")
(while (and (setq ss (entsel "\n请选择坐标标注: "))
(setq ent (entget (car ss)))
(= (cdr(assoc 0 ent)) "DIMENSION"))
(setq p1 (getpoint (cadr ss) "请选择文字的位置: ")
P4 (cdr (assoc 14 ent))
p5 (polar P4 (* 1.5 pi) 0.001)
p6 (polar P4 (* 0.5 pi) 0.001))
(vl-cmdf "stretch" "C" p5 p6 "R" (ssget "C" p5 p6 '((0 . "~DIMENSION"))) "" p4 p1)
)
(princ)
) ZZXXQQ 发表于 2015-2-4 21:11 static/image/common/back.gif
改了一下。
请选择坐标标注: ; 错误: 参数类型错误: listp "DIMENSION" ymcui 发表于 2015-2-5 08:16 static/image/common/back.gif
请选择坐标标注: ; 错误: 参数类型错误: listp "DIMENSION"
请选择坐标标注: 请选择文字的位置: 应用程序错误: 命令输入时发送的类型无效
本帖最后由 Andyhon 于 2015-2-6 08:30 编辑
(vl-cmdf "stretch"
"C" p5 p6
"R"
(cond
((ssget "C" p5 p6 '((0 . "~DIMENSION"))) "")
(T "")
)
p4p1
) Andyhon 发表于 2015-2-6 08:17 static/image/common/back.gif
(vl-cmdf "stretch"
"C" p5 p6
"R"
现在拉伸是可以了,不过和我的那个一样,边上有物体会一起拉伸.
sorry!
Try this
(command "stretch" "C" p5 p6 "R")
(cond
((setq ss (ssget "C" p5 p6 '((0 . "~DIMENSION"))))
(command ss "")
)
(T (command ""))
)
(commandp4p1)
Andyhon 发表于 2015-2-6 09:29 static/image/common/back.gif
sorry!
Try this
OK非常感谢
页:
[1]
2