uditx 发表于 2011-9-18 09:30:14

求助 有关表格封闭或智能修剪的程序

大家看一下有没有程序可以实现表格自动封闭的功能呀 帮个忙呗 谢谢了先

ZZXXQQ 发表于 2011-9-18 09:47:54


;延伸线条至边界 明经 ZZXXQQ 2011.9.18 （九一八事变纪念日）
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))
(if (setq ss (ssget '((0 . "LINE")))) (progn
(setvar "OSMODE" 0)
(setq i 0)
(repeat (sslength ss)
   (setq ent (entget(ssname ss i))
         pt1 (cdr(assoc 10 ent))
         pt2 (cdr(assoc 11 ent)))
   (if (= (sslength (ssget "C" pt1 pt1)) 1)
    (command "_.EXTEND" ss "" "END" pt1 "")
   )
   (if (= (sslength (ssget "C" pt2 pt2)) 1)
    (command "_.EXTEND" ss "" "END" pt2 "")
   )
   (setq i (1+ i))
)
))
(setvar "OSMODE" oldos)
(setvar "CMDECHO" 1)
(princ)
)

uditx 发表于 2011-9-19 20:44:53

哈哈，收到，看到了

uditx 发表于 2011-9-19 20:45:26

谢谢呀能增加修剪功能吗？

skymudy 发表于 2012-2-2 13:10:40

谢谢！很好

xzklk 发表于 2020-3-16 23:16:56

看看是不是我找的

wangdachao5233 发表于 2022-12-6 15:43:29

看看66666666666666666666
页: [1]
查看完整版本: 求助 有关表格封闭或智能修剪的程序