谁能帮我？？？

ldb1420

执行了多段线编辑命令以后，下面有子命令，“合并”的快捷键是“J”，能不能把它设置成“R”呢？


有劳版主及大虾们帮忙看看，拜谢了

BDYCAD

不用去改. 直接用ilsp写个固定的就好了. 第一种 (defun c:fe (/ a ent )
(SETVAR "PLINETYPE"2)
(setq a (ssname (ssget) 0))
(setq ent (cdr (assoc 0(entget a ))))
(if (OR(= ent "LWPOLYLINE") (= ent "POLYLINE"))
(vl-cmdf "pedit" a "J" (SSGET) "" "")
(vl-cmdf "pedit" a "" "J" (SSGET) "" "")
)) 第二种 (defun c:fe (/ a ent )
(SETVAR "PLINETYPE"2)
(setq a (ssname (ssget) 0))
(setq ent (cdr (assoc 0(entget a ))))
(if (OR(= ent "LWPOLYLINE") (= ent "POLYLINE"))
(vl-cmdf "pedit" a "J" "all" "" "")
(vl-cmdf "pedit" a "" "J" "all" "" "")
))

ldb1420

哇！！！真的很好用。能不能一打开图形就自动加载这个程序呀？如果每次都要手动加载很麻烦哦

CADghost

工具//加载应用程序//内容//添加//找到相应的程序后确定就行了！

ldb1420

谢谢四楼的指点