求解(ssget)与（entsel）

suiran

以下是对图形进行X、Y方向比例缩放的程序，但是这个程序是对多个图形缩放，我想改为只能对一个图形缩放，就是点选(entsel)的方式，奈何学艺不精，改了一晚上都没有成功，求坛友们指点迷津！ [size=9.5475pt] (defun C:SF(/ bp ss xscal yscal entL)    (defun errexit (s)      (princ "\nError:  ")      (princ s)      (restore)    )    (defun restore ()      (setvar "CMDECHO" (car oldvar))      (setq *error* olderr)      (princ)    ) (defun MAKEUNBLOCK (ss ip / tmp errexit mbx BLAYER)    (setq T (not nil))    (setq olderr  *error*          *error* errexit    )    (setq oldvar      (list        (getvar "CMDECHO")      )    )    (setvar "CMDECHO" 0)    (terpri)    (if BLAYER      (command "._LAYER"        (if (tblsearch "LAYER" BLAYER) "_S" "_M")        BLAYER        ""      )    )    (if (and ip ss)      (progn        (entmake (list          (cons '0 "BLOCK")          (cons '2 "*U")          (cons '70 1)          (cons '10 ip)        ))        (setq cnt (sslength ss))        (while (>= (setq cnt (1- cnt)) 0)          (setq tmp (ssname ss cnt))          (entmake (setq el (entget tmp)))          (if (> (cdr (assoc 66 el)) 0)            (while              (/= "SEQEND"                (cdr                  (assoc 0                    (entmake (setq el (entget (entnext (cdr (assoc -1 el))))))                  )                )              )            )          )          (entdel tmp)        )        (setq tmp (entmake (list (cons '0 "ENDBLK"))))        (entmake (list          (cons '0 "INSERT")          (cons '2 tmp)          (cons '10 ip)        ))      )    )    (restore) )    (setq ss (ssget))    ;;; 选择缩放实体   (if ss      (progn        (setvar "cmdecho" 0)        (setq bp (getpoint "缩放基准点 (<0,0,0>): "))        (if (not bp) (setq bp (list 0 0 0)))        (setq xscal (getreal "X向比例因子 <1>: "))        (if (not xscal) (setq xscal 1))        (setq yscal (getreal "Y向比例因子 <1>: "))        (if (not yscal) (setq yscal 1))        (MAKEUNBLOCK ss bp)        (setq entL (entget (entLast))            entL (subst (cons 41 xscal) (assoc 41 entL) entL)            entL (subst (cons 42 yscal) (assoc 42 entL) entL)        )        (entmod entL)        (command "_explode" "l" "")      )    )    (princ) )

dcl1214

粘贴带有行号的代码，一般人不愿意帮你调试，vlide界面的代码是没有行号的

suiran

dcl1214 发表于 2024-4-27 17:53
粘贴带有行号的代码，一般人不愿意帮你调试，vlide界面的代码是没有行号的

那我传个lsp文件吧。别的也不会

飞雪神光

1. (defun C:SF(/ bp entl makeunblock ty xscal yscal)
   
2.         (defun MAKEUNBLOCK (ty ip / tmp errexit mbx BLAYER)
   
3.                 (setvar "CMDECHO" 0)
   
4.                 (if (and ip ty)
   
5.                         (progn
   
6.                                 (entmake (list
   
7.                                                                          (cons '0 "BLOCK")
   
8.                                                                          (cons '2 "*U")
   
9.                                                                          (cons '70 1)
   
10.                                                                          (cons '10 ip)
    
11.                                                                  )
    
12.                                 )
    
13.                                 (entmake (setq el (entget ty)))
    
14.                                 (if (> (cdr (assoc 66 el)) 0)
    
15.                                         (while
    
16.                                                 (/= "SEQEND"
    
17.                                                         (cdr
    
18.                                                                 (assoc 0
    
19.                                                                         (entmake (setq el (entget (entnext (cdr (assoc -1 el))))))
    
20.                                                                 )
    
21.                                                         )
    
22.                                                 )
    
23.                                         )
    
24.                                 )
    
25.                                 (entdel ty)
    
26.                                 (setq tmp (entmake (list (cons '0 "ENDBLK"))))
    
27.                                 (entmake (list
    
28.                                                                          (cons '0 "INSERT")
    
29.                                                                          (cons '2 tmp)
    
30.                                                                          (cons '10 ip)
    
31.                                                                  ))
    
32.                         )
    
33.                 )
    
34.         )
    
35.         (if (setq ty (car(entsel "\n选择缩放图元:")))
    
36.                 (progn
    
37.                         (setvar "cmdecho" 0)
    
38.                         (setq bp (getpoint "缩放基准点 (<0,0,0>): "))
    
39.                         (if (not bp) (setq bp (list 0 0 0)))
    
40.                         (setq xscal (getreal "X向比例因子 <1>: "))
    
41.                         (if (not xscal) (setq xscal 1))
    
42.                         (setq yscal (getreal "Y向比例因子 <1>: "))
    
43.                         (if (not yscal) (setq yscal 1))
    
44.                         (MAKEUNBLOCK ty bp)
    
45.                         (setq
    
46.                                 entL (entget (entLast))
    
47.                                 entL (subst (cons 41 xscal) (assoc 41 entL) entL)
    
48.                                 entL (subst (cons 42 yscal) (assoc 42 entL) entL)
    
49.                         )
    
50.                         (entmod entL)
    
51.                         (command "_explode" "l" "")
    
52.                 )
    
53.         )
    
54.         (princ)
    
55. )

(defun C:SF(/ bp entl makeunblock ty xscal yscal)<br />         (defun MAKEUNBLOCK (ty ip / tmp errexit mbx BLAYER)<br />                 (setvar "CMDECHO" 0)<br />                 (if (and ip ty)<br />                         (progn<br />                                 (entmake (list<br />                                                                          (cons '0 "BLOCK")<br />                                                                          (cons '2 "*U")<br />                                                                          (cons '70 1)<br />                                                                          (cons '10 ip)<br />                                                                  )<br />                                 )<br />                                 (entmake (setq el (entget ty)))<br />                                 (if (> (cdr (assoc 66 el)) 0)<br />                                         (while<br />                                                 (/= "SEQEND"<br />                                                         (cdr<br />                                                                 (assoc 0<br />                                                                         (entmake (setq el (entget (entnext (cdr (assoc -1 el))))))<br />                                                                 )<br />                                                         )<br />                                                 )<br />                                         )<br />                                 )<br />                                 (entdel ty)<br />                                 (setq tmp (entmake (list (cons '0 "ENDBLK"))))<br />                                 (entmake (list<br />                                                                          (cons '0 "INSERT")<br />                                                                          (cons '2 tmp)<br />                                                                          (cons '10 ip)<br />                                                                  ))<br />                         )<br />                 )<br />         )<br />         (if (setq ty (car(entsel "\n选择缩放图元:")))<br />                 (progn<br />                         (setvar "cmdecho" 0)<br />                         (setq bp (getpoint "缩放基准点 (<0,0,0>): "))<br />                         (if (not bp) (setq bp (list 0 0 0)))<br />                         (setq xscal (getreal "X向比例因子 <1>: "))<br />                         (if (not xscal) (setq xscal 1))<br />                         (setq yscal (getreal "Y向比例因子 <1>: "))<br />                         (if (not yscal) (setq yscal 1))<br />                         (MAKEUNBLOCK ty bp)<br />                         (setq<br />                                 entL (entget (entLast))<br />                                 entL (subst (cons 41 xscal) (assoc 41 entL) entL)<br />                                 entL (subst (cons 42 yscal) (assoc 42 entL) entL)<br />                         )<br />                         (entmod entL)<br />                         (command "_explode" "l" "")<br />                 )<br />         )<br />         (princ)<br /> )

cds15980954301

飞雪神光 发表于 2024-4-27 19:34

热心大神

suiran

飞雪神光 发表于 2024-4-27 19:34

感谢大神的再次帮助！已经帮了我好几次了
我好好研究一下，感谢。

JUN1

设选择实体为多段线，提取多段线坐标，以起点为基点，把起点坐标调整为（0 0）坐标，则多段线坐标转换为（list（list 0 0）（list 1 1）（list 1 2))，Y方向放大2倍，下一步就得到（list（list0 0）（list1 2）（list1 4))   ，其实就已经完成了坐标计算的搭建。接下来就需要把坐标返回，或者给定标注坐标，生成新的多段线。

suiran

JUN1 发表于 2024-4-28 08:34
设选择实体为多段线，提取多段线坐标，以起点为基点，把起点坐标调整为（0 0）坐标，则多段线坐标转换为（l ...

感谢兄台细心的答复。