如何才可以做到选择尺寸,点选要放置的位置,就可以达到台图的效果.

ymcui

如何才可以做到选择尺寸,点选要放置的位置,就可以达到台图的效果.
求高手帮忙

fl202

夹点操作或者S拉伸满足不了你？。。。

ymcui

fl202 发表于 2015-2-4 08:54
夹点操作或者S拉伸满足不了你？。。。

谢谢你的回复.
我自己做了一个简单的,不过不理想,只要有物体在同一个点上就会被一起拉伸.不是只拉伸尺寸.

2. (defun c:cd ()
   
3. (COMMAND "_.UCS" "W")
   
4. (setq ss (entsel "\n请选择坐标标注:")
   
5.   p1 (getpoint "请选择文字的位置:")
   
6.   a2 (entget (car ss))
   
7.   P3 (cdr (ASSOC 13 a2))
   
8.   P4 (cdr (ASSOC 14 a2))
   
9.   p5 (POLAR P4 (* 1.5 pi) 0.001)
   
10.   p6 (POLAR P4 (* 0.5 pi) 0.001))
    
11. (vl-cmdf "stretch" "C" p5 p6 "" p4 p1)
    
12. )

(defun c:cd ()<br /> (COMMAND "_.UCS" "W")<br /> (setq ss (entsel "\n请选择坐标标注:")<br />   p1 (getpoint "请选择文字的位置:")<br />   a2 (entget (car ss))<br />   P3 (cdr (ASSOC 13 a2))<br />   P4 (cdr (ASSOC 14 a2))<br />   p5 (POLAR P4 (* 1.5 pi) 0.001)<br />   p6 (POLAR P4 (* 0.5 pi) 0.001))<br /> (vl-cmdf "stretch" "C" p5 p6 "" p4 p1)<br /> )

ZZXXQQ

改了一下。

2. (defun c:cd ()
   
3. (command "_.UCS" "W")
   
4. (while (and (setq ss (entsel "\n请选择坐标标注: "))
   
5.             (setq ent (entget (car ss)))
   
6.             (= (cdr(assoc 0 ent)) "DIMENSION"))
   
7. (setq p1 (getpoint (cadr ss) "请选择文字的位置: ")
   
8.        P4 (cdr (assoc 14 ent))
   
9.        p5 (polar P4 (* 1.5 pi) 0.001)
   
10.        p6 (polar P4 (* 0.5 pi) 0.001))
    
11. (vl-cmdf "stretch" "C" p5 p6 "R" (ssget "C" p5 p6 '((0 . "~DIMENSION"))) "" p4 p1)
    
12. )
    
13. (princ)
    
14. )

(defun c:cd ()<br /> (command "_.UCS" "W")<br /> (while (and (setq ss (entsel "\n请选择坐标标注: "))<br />             (setq ent (entget (car ss)))<br />             (= (cdr(assoc 0 ent)) "DIMENSION"))<br /> (setq p1 (getpoint (cadr ss) "请选择文字的位置: ")<br />        P4 (cdr (assoc 14 ent))<br />        p5 (polar P4 (* 1.5 pi) 0.001)<br />        p6 (polar P4 (* 0.5 pi) 0.001))<br /> (vl-cmdf "stretch" "C" p5 p6 "R" (ssget "C" p5 p6 '((0 . "~DIMENSION"))) "" p4 p1)<br /> )<br /> (princ)<br /> )

ymcui

ZZXXQQ 发表于 2015-2-4 21:11
改了一下。

请选择坐标标注: ; 错误: 参数类型错误: listp "DIMENSION"

ymcui

ymcui 发表于 2015-2-5 08:16
请选择坐标标注: ; 错误: 参数类型错误: listp "DIMENSION"

请选择坐标标注: 请选择文字的位置: 应用程序错误: 命令输入时发送的类型无效

Andyhon

   (vl-cmdf "stretch"
             "C" p5 p6
             "R"
             (cond
               ((ssget "C" p5 p6 '((0 . "~DIMENSION"))) "")
               (T "")
             )
             p4  p1
    )

ymcui

Andyhon 发表于 2015-2-6 08:17
(vl-cmdf "stretch"
             "C" p5 p6
             "R"

现在拉伸是可以了,不过和我的那个一样,边上有物体会一起拉伸.

Andyhon

sorry!

Try this

(command "stretch" "C" p5 p6 "R")
(cond
((setq ss (ssget "C" p5 p6 '((0 . "~DIMENSION"))))
  (command ss "")
)
(T (command ""))
)         
(command  p4  p1)

ymcui

Andyhon 发表于 2015-2-6 09:29
sorry!

Try this

OK非常感谢