明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: 958620832

[源码] 连续加粗(绝对原创)

[复制链接]
 楼主| 发表于 2013-10-11 14:37 | 显示全部楼层
emk 发表于 2013-10-11 11:47
是不是考虑排除(= (car pt1) (car pt)) )才这样写的?

也可以加入(= (car pt1) (car pt))的情况,但这种情况在选择对象时,很难做到,可以不用考虑。
如果加入,应改成(if (<= (car pt1)(car pt))(setq ss (ssget "c" pt pt1))(setq ss (ssget "w" pt pt1))),(= (car pt1) (car pt))的情况只能构成一条线,构成不了一个窗口,只能用于框选,不能用于窗选。
发表于 2013-10-11 14:51 | 显示全部楼层
不错,已试用,挺好的,能加粗圆。
发表于 2013-10-12 12:31 | 显示全部楼层
小小的建议:
1.  (defun c:cc (/ len ent c r pt pt1 p1 p2 en ss......
按楼主的思路kd就不用加进去了
2.kd变量换个变量名,譬如换成pl_width......
 楼主| 发表于 2013-10-12 14:49 | 显示全部楼层
WKSTUDIO 发表于 2013-10-12 12:31
小小的建议:
1.  (defun c:cc (/ len ent c r pt pt1 p1 p2 en ss......
按楼主的思路kd就不用加进去了 ...

我不太喜欢定义太多的局部变量,除非有那个必要
发表于 2013-10-12 14:58 | 显示全部楼层
958620832 发表于 2013-10-12 14:49
我不太喜欢定义太多的局部变量,除非有那个必要

呵呵,个人习惯而已。定义局部变量是避免不同程序使用相同的变量名而产生的干扰
发表于 2013-10-16 01:14 | 显示全部楼层
多谢楼主提供源码学习!
发表于 2013-10-16 13:19 | 显示全部楼层
这么好的程序,下来肯定能用上!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-16 00:49 , Processed in 0.370384 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表