帮忙写个程序

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

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

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

试了L4 L8 皆可用 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

多谢高手们的好程序！

账号		自动登录	找回密码
密码			注册

帮忙写个程序

本帖子中包含更多资源