[求助] 打断直线的程序，错在哪里。

MRHDF · 发表于 2010-10-20 10:02:00

我不会autolisp, 这个是用记事本写的。

想实现的目标是把一个直线从选定的pt0 向两个方向个断开一个距离。帮水专业的一个老大姐设计的，呵呵。

(defun c:cb (/ ent pt0 pt1 ang )
(setq ent (ssget))
(setq pt0 (getpoint "\n 输入交点："))
(setq pt1 (getpoint "\n 输入第二点："))
(setq ang (angle pt0 pt1))
(command ".break" ent "F" (polar pt0 ang 2.0) (polar pt0 ang -2.0) )
)

估计是ent 的变量值不对，可是我在帮助上翻了半天也米有找到办法解决。

liminnet · 发表于 2010-10-20 10:04:00

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

ZZXXQQ · 发表于 2010-10-20 10:33:00

(defun c:cb (/ ent pt0 pt1 ang)
(setq ent (entsel "\n选择线条 :"))
(setq pt0 (getpoint "\n输入交点 :"))
(setq pt1 (getpoint pt0 "\n输入第二点 :"))
(setq ang (angle pt0 pt1))
(command ".break" ent "F" "non" (polar pt0 ang 2.0) "non" (polar pt0 ang -2.0))
)

MRHDF · 发表于 2010-10-20 12:18:00

谢谢三楼的， entsel 呵呵。最后面的"non" 我也不理解。

crazylsp · 发表于 2010-10-20 17:28:00

老大姐怎么报答你呢？发现这个程序可以拿来画点划线,虚线

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

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

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

[基础] [求助] 打断直线的程序，错在哪里。