zhangcn 发表于 2022-7-31 18:05:06

加边框代码，怎么增加默认边框距离呢？


在下面连接这个贴子找到一个加边框的代码，需要手动输入边框距离，怎么增加默认边框距离呢？
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=109394&extra=&highlight=%BC%D3%B1%DF%BF%F2&page=1



[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;加边框

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(defun c:ttt ()

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setvar "CMDECHO" 0)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (vl-load-com)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq bx (getdist "\nEnter Around Space 输入四周间隔: "))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (while (progn (princ "\n选择加框物体: ") (setq ss (ssget)))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq i -1 plst (list))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(repeat (sslength ss)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   (setq en (ssname ss (setq i (1+ i))))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   (vla-getboundingbox(vlax-ename->vla-object en) 'p1 'p2)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   (setq plst (append plst (list(vlax-safearray->list p1)(vlax-safearray->list p2))))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq p1 (apply 'mapcar (cons 'min plst)))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq p2 (apply 'mapcar (cons 'max plst)))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq p1 (mapcar '- p1 (list bx bx)))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq p2 (mapcar '+ p2 (list bx bx)))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(command "_.RECTANG" p1 p2)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setvar "CMDECHO" 1)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (prin1)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)


行天下 发表于 2022-9-28 09:16:34

日常灌水，到此一看，期待大佬解决
页: [1]
查看完整版本: 加边框代码，怎么增加默认边框距离呢？