龙大哥，ZZXXQQ，无痕大哥，飞哥，浪大哥，院长，cayin,萝卜大哥，帮我，急。

liminnet · 发表于 2008-10-13 15:39

提示: 作者被禁止或删除内容自动屏蔽

"觉得好，就打赏"

还没有人打赏，支持一下

sailorcwx · 发表于 2008-10-13 15:46

(command "_.pedit" "_m" ss "" "_j" 0 "")
应该还有一个y吧

(command "_.pedit" "_m" ss "" "y" "_j" 0 "")

liminnet · 发表于 2008-10-13 16:07

提示: 作者被禁止或删除内容自动屏蔽

cnks · 发表于 2008-10-13 19:01

;;;加粗圆并把圆转为多段线
;;引用格式(ko-add-circleweight (car (entsel)) 100)或者(ko-add-circleweight (ssname (ssget) 0) 100)
(defun ko-add-circleweight (ena weight / rad bas pt1 pt2 lat)
(setq rad (cdr(assoc 40 (entget ena))))
(setq bas (cdr(assoc 10 (entget ena))))
(setq pt1 (polar bas 0 rad))
(setq pt2 (polar bas (* pi 1) rad))
(command "._break" ena pt1 pt2)
(command "._pedit" ena "y" "c" "")
(setq lat (entlast))
(command "._pedit" lat "w" weight "")
)
(defun c:kk (/ a ss1 ss2 f i s)
(setvar "cmdecho" 0)
(if (setq s (getvar "peditaccept"))
(setvar "peditaccept" 1)
)
(setq ss (ssget '((0 . "LINE,*POLYLINE,ARC,CIRCLE"))))
(setq i 0)
(if ss
(repeat (sslength ss)
(if (= (cdr (assoc 0 (entget (ssname ss i)))) "CIRCLE")
(ko-add-circleweight (ssname ss i) 0)
)
(setq i (1+ i))
)
)
(if s
(setvar "peditaccept" s)
)
(setvar "cmdecho" 1)
(princ)
)

sailorcwx · 发表于 2008-10-13 19:48

本帖最后由作者于 2008-10-13 19:48:44 编辑

唉，此类标题的帖子不能回，会把你们惯坏的，破坏了论坛的秩序，直接无视~~~~~~

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

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-10-13 15:39 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽 "觉得好，就打赏" 打赏还没有人打赏，支持一下

	回复使用道具举报置顶卡变色卡显身卡

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-10-13 16:07 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡