草木堂 发表于 2011-9-27 21:35:00

顶 好东西 啊 ！！

springwillow 发表于 2011-10-4 08:00:41

呵呵，我也是刚开始学LISP。下来看看

328302216 发表于 2011-11-12 11:36:03

你的这个程序现在不能下载了，能给我发一个吗？我想研究一下你编的代码！谢谢

328302216 发表于 2011-11-12 11:42:44

下载下来的代码就
(defun c:pp()
   (prompt "\n 多项选择同时连线----钮广春整理--★QQ-626860125★")
   (command "peditaccept" 1)   ；加入这个系统变量的代码
   (setq ngc01 (ssget))
   (command "_pedit" "m" ngc01 "" "j" "0.1" ""))
这些啊？不懂怎么用！

hhh454 发表于 2011-11-12 11:46:18

328302216 发表于 2011-11-12 11:42 static/image/common/back.gif
下载下来的代码就
(defun c:pp()
   (prompt "\n 多项选择同时连线----钮广春整理--★QQ-626860125★") ...

将代码复制到文本里面，另存为pp.lsp文件，加载到cad里面，然后执行pp命令

328302216 发表于 2011-11-12 12:16:57

hhh454 发表于 2011-11-12 11:46 static/image/common/back.gif
将代码复制到文本里面，另存为pp.lsp文件，加载到cad里面，然后执行pp命令

这个我知道，但是用了整不出什么功能来，能说一下加载后怎么操作吗？谢谢

hhh454 发表于 2011-11-12 16:46:47

328302216 发表于 2011-11-12 12:16 static/image/common/back.gif
这个我知道，但是用了整不出什么功能来，能说一下加载后怎么操作吗？谢谢

批量连接断线，

328302216 发表于 2011-11-12 17:05:58

hhh454 发表于 2011-11-12 16:46 static/image/common/back.gif
批量连接断线，

我觉得你应该整个gif动画在上面！

yshf 发表于 2011-11-12 23:58:06


;略作修改
(defun c:pp()
    (setq cm (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (prompt "\n 多项选择同时连线----钮广春整理--★QQ-626860125★")
    (setvar "peditaccept" 1) ;加入这个系统变量的代码
    (if (setq ngc01 (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
      (command "_pedit" "m" ngc01 "" "j" "0.1" "")
    )
    (setvar "cmdecho" cm)
    (princ)
)

czb203 发表于 2011-11-18 11:24:10

很不错的样子哦 谢谢啊
页: 1 [2] 3 4 5
查看完整版本: 【原创】批量连接直线、圆弧、多义线--源码，很简单