求助：如何实现双重偏移并擦除原有实体？

olivetree

下面这个程序是一本参考书上的，但是只能朝一个方向偏移，不知道是不是other点的定义有问题（标红线的部分），由于小弟初次接触lisp，还望各位多多指教 (defun c:DOF(/ a b b1 p1 d pckbox)
(setq d 20 p1 nil pee (/ pi 2) e 3 pckbox(getvar"pickbox") line "")
(if(= #parof nil)(setq #parof(/ (getvar "viewsize") 10)))
(princ "\n 请输入道路宽度<")(princ #parof)
(setq answer (getstring">:"))
(if(/= (atof answer) 0.0)(setq #parof(/ (atof answer) 2)))
(princ line)
(setvar "pickbox" pckbox)
(setq ent(entsel "\n 拾取道路中心线："))
(setvar "pickbox" 2)
(setq point(cadr ent))
(princ line)
(setq side(getpoint "\n 拾取要偏移的一方："))
(setq dist(distance side point))
(setq ang(angle side point))
(if(or(or(< ang 0.78)(> ang 5.5))(and(> ang 2.35)(< ang 3.92)))
(setq ang(- 0 ang))(setq ang(- pi ang))
);end if
(setq other (polar point ang dist))
(command "offset" #parof ent side ent other "")
(entdel (car ent))
(setvar "pickbox" pckbox)
(prin1)
)
(prompt "\n 键入DOF唤起命令：")

meflying

参考： http://bbs.mjtd.com/forum.php?mod=viewthread&tid=16127&replyID=77917&skin=1

olivetree

您在""的时候发生错误,共有1项,下面是错误的详细信息

非法的贴子参数。

请仔细阅读论坛帮助文件，确保您有相应的操作权限。

meflying

怎么中间会多出一个分号？？？再帖 http://www.mjtd.com/bbs/dispbbs.asp?BoardID=3&ID=16127&replyID=77917&skin=1

meflying

还是不行，，，你把地址复制到地址栏里来看

olivetree

看到了，很简捷的程序


多谢meflying斑主了