cjjh8301 发表于 2011-5-3 13:59:40

请用这个DWG 文件 加载我的LSP试试

Andyhon 发表于 2011-5-3 14:18:58

试了L4L8 皆可用 n 次 且正常
测不出如您所说的情况
或许我没能理解您所说的问题....

cjjh8301 发表于 2011-5-3 16:11:38

可以用了，原来与自动切换输入法那个程序有冲突，卸掉那个，这个程序就可用了，试了好多图纸都没问题，多谢Andyhon耐心的帮助！！

yhkk0317 发表于 2011-5-19 20:14:57

很好.下了试试

cjjh8301 发表于 2011-5-20 12:08:10

本帖最后由 cjjh8301 于 2011-5-20 12:08 编辑

这个请人做了小改，完美一点：
(defun Ccl (ss la c lt)
(if (= (tblsearch "Layer" la) nil)
    (command "Layer" "make" la "C" c "" "L" lt "" "")
)
(command "chprop" ss "" "La" la "C" c "Lt" lt "")
)
(defun C:LP ()
(if (setq ss (ssget))
    (Ccl ss "0-DOTE" "240" "dote")
)
(princ)
)
(defun C:LM ()
(if (setq ss (ssget))
    (Ccl ss "0-S1" "190" "continuous")
)
(princ)
)
(defun C:LK ()
(if (setq ss (ssget))
    (Ccl ss "0-S2" "30" "continuous")
)
(princ)
)
(defun C:LN ()
(if (setq ss (ssget))
    (Ccl ss "0-S3" "3" "continuous")
)
(princ)
)

yunfengning 发表于 2011-5-22 00:12:00

谢谢Andyhon的程序

齐天大圣3386 发表于 2011-5-24 19:06:56

真有好人啊

669423907 发表于 2011-6-7 23:45:48

多谢高手们的好程序！
页: 1 [2]
查看完整版本: 帮忙写个程序