[LISP程序]：求助没人理，自己依样画葫芦，哪位朋友帮忙指正？

bolixin

前几天在论坛求助
http://www.xdcad.net/forum/showthread.php?threadid=414510
结果没人理会，我想问一下：该论坛是专门针对高手的吗？谁能帮帮一些菜鸟？
没办法，只好依样画葫芦，哪位朋友帮忙指正一下？不胜感激！！！


(defun c:pj ();自动配筋
(setq cmdecho (getvar "cmdecho"))
   (setq bianjie (nentsel "\n选择边界:"))
  (setq dist1 (getdist "\n距边界距离<450>:"))
  (if (null dist1) (setq dist1 450))
  (setq dist2 (getdist "\n钢筋间距<150>:"))
  (if (null dist2) (setq dist2 150))
  (setq dist3 (getdist "\n分布长度:"))
  (setq pt1 (getpoint "\n边界线首端点:"))
  (setq pt2 (getpoint pt1 "\n边界线首端点:"))
  (command "pline" pt1 pt2 "")
  (setq obj (entlast))
  (setq hudu (angle pt1 pt2))
  (setq pt3 (polar pt1 (+ hudu (/ (* 90 pi) 180)) 100))
  (setq count (/ (- dist3 (* dist1 2)) dist2))
  (setq I 0)
  (while (<= I count)
    (command "offset" (+ dist1 (* dist2 I)) obj pt3 "")
    (setq obj2 (entlast))
    (setq point (vlax-curve-getstartPoint obj))
    (setq obj3 (nentselp point))
    (command "extend" bianjie "" obj3 "")       
    (setq point (vlax-curve-getEndPoint obj))
    (setq obj3 (nentselp point))
    (command "extend" bianjie "" obj3 "")
    (setq I (+ I 1))
    )
  (command "erase" obj "")
  (setvar "cmdecho" cmdecho)
  (princ)
)

yjrun

呢这个程序贴出来，要大家指正什么？不明白

nanshan2000

？？？

winabcd

你这个程序能运行，还有什么问题呢？
我不知道程序是干什么的，我运行正常，可我看不到运行后的结果。
是不是因为下句的原因
(command "erase" obj "")

xyp1964

纯LISP（不用通用函数，已编译），不知如何？

xyp1964

效果：

zhouri

最初由 xyp1964 发布
[B]纯LISP（不用通用函数，已编译），不知如何？ [/B]

关于此程序请教xyp：

   1， 对于不规则的图形，你的剪切（trim）算法如何。.
      2.    对于生成直线的剪切，你是生成好所以直线后来剪切，还是生成一条就剪切一条，如果是前者，请教你是如何搜索你生成的直线。

xyp1964

对于这个特殊的程序当然不能用trim和extend，边界搜索太复杂！
最简单的办法是用“hatch”命令。

bolixin

谢谢各位！特别是热心的xyp1964  ！
谢谢！