自动连上

461045462

yjr111 发表于 2012-8-7 19:49

我是在2004测试，不知为什么不行？
谢谢yjr111 ！
测试图附上：


在2007下通过。
谢谢！

Andyhon

先确认:
Command: !acet-ent-geomextents
#<SUBR @03dc244c <EXRXSUBR>>

Command: !Mid_pt
#<SUBR @043ca76c MID_PT>

357785513

试了院长的,发现院长的超过10000个以上就有好多连不上,且好慢

357785513

请输入缩放比例<0.5>
; 错误: 参数类型错误: lselsetp nil

vlisp2012

win7  cad2010
请输入缩放比例<0.5>
; 错误: 参数类型错误: lselsetp nil

ZZXXQQ

抛砖引玉

1. (defun c:tt ()
   
2. (setvar "CMDECHO" 0)
   
3. (command "_.UNDO" "BE")
   
4. (if (and (setq fac (getreal "\n缩放比率 :"))
   
5.           (setq ss (ssget '((0 . "INSERT") (2 . "ltg"))))) (progn
   
6.   (setq i 0)
   
7.   (repeat (sslength ss)
   
8.    (setq en (ssname ss i))
   
9.    (command "_.EXPLODE" en)
   
10.    (setq ent (entget(entlast))
    
11.          pc (cdr(assoc 10 ent))
    
12.          r (cdr(assoc 40 ent))
    
13.          dr (- r (* r fac)))
    
14.    (command "_U")
    
15.    (command "_SCALE" en "" pc fac)
    
16.    (command "_LENGTHEN" "DE" dr "end" (polar pc pi r) "end" (polar pc 0 r) "")
    
17.    (setq i (1+ i))
    
18.   )
    
19. ))
    
20. (command "_.UNDO" "E")
    
21. (setvar "CMDECHO" 1)
    
22. (princ)
    
23. )
    

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (command "_.UNDO" "BE")<br /> (if (and (setq fac (getreal "\n缩放比率 :"))<br />           (setq ss (ssget '((0 . "INSERT") (2 . "ltg"))))) (progn<br />   (setq i 0)<br />   (repeat (sslength ss)<br />    (setq en (ssname ss i))<br />    (command "_.EXPLODE" en)<br />    (setq ent (entget(entlast))<br />          pc (cdr(assoc 10 ent))<br />          r (cdr(assoc 40 ent))<br />          dr (- r (* r fac)))<br />    (command "_U")<br />    (command "_SCALE" en "" pc fac)<br />    (command "_LENGTHEN" "DE" dr "end" (polar pc pi r) "end" (polar pc 0 r) "")<br />    (setq i (1+ i))<br />   )<br /> ))<br /> (command "_.UNDO" "E")<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

yjr111

ZZXXQQ 发表于 2012-8-7 23:45
抛砖引玉

有点问题，可能需要zoom...

xyp1964

不受方向的限制

xyp1964

适应复杂图块

YAOSHIWEI

值得学习