[LISP程序]：嘿嘿！给大家献丑了

小钉子

(defun c:qxcd ()
  (vl-load-com)
  (setq 1ENAME (entsel "\n拾取曲线: "))
  (setq ename1 (car 1ename))
  (setq ename2 (cadr 1ename))
  (vl-cmdf "_.line" "_per" ename2 pause "")
  (setq pt (cadr (grread 1 1)))
  (vl-cmdf "_erase" (entlast) "")
  (vl-cmdf "_.line" pt "_per" ename2 "")
  (setq linept (cdr (assoc 11 (entget (entlast)))))
  (while
    (setq qxjl (getreal "\n输入距离："))
    (ok_vvvv)
    )
  )
(defun ok_vvvv ()
  (setq ptCal (vlax-curve-getpointatdist;|返回曲线上距开始点为指定距离的点（在 WCS 中）|; ENAME1
                (+ (vlax-curve-getdistatpoint;|返回曲线从开始点到指定点的曲线段的长度|; ENAME1 linept) qxjl)))
  (setq cm (getvar "cmdecho"))
  (setq os (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)  
  (setq PX1 (vlax-curve-getfirstderiv ENAME1 (vlax-curve-getparamatpoint ENAME1 ptCal)))
  (setq JANG (angle '(0 0 0) PX1))
  (command "_.line" (polar ptcal (+ (* pi 0.5) JANG) 10) (polar ptcal (+ (* 1.5 pi) JANG) 10) "");两个10是你需要画线的长度
  (setvar "osmode" os)
  (setvar "cmdecho" cm)
  (princ)
)

程序存在问题：
1、出现错误机率较大，经常获取不到DXF码，不知为什么??
2、没有判断线段方向的子程序（我不会）不知那位大侠给补上。
3、动态线在选择了直线段后移动到曲线段上时起点不在线条山请问怎么解决阿？？
4、再就是那位大侠可以帮忙做成不用把线段连成一条pline那就大开眼界了（见附件中右侧的路线图）
……
还有好多问题：（
这个程序还可以凑合用了

xyp1964

“路段标注”程序：ldbz

xyp1964

效果：

小钉子

老斑能公布一段源码吗？？

xyp1964

其中一段：
[php](setq n              (1+ n);路桩基数
      ll      (* n NO1);长度参数
      pt0     (vlax-curve-getPointAtDist
                (vlax-ename->vla-object e)
                ll
              );参数点
      pt-01   (vlax-curve-getPointAtDist
                (vlax-ename->vla-object e)
                (- ll 5)
              );参数左点
      pt-02   (vlax-curve-getPointAtDist
                (vlax-ename->vla-object e)
                (+ ll 5)
              );参数右点
      pt2     (_midpup pt-01 pt-02 (* sc NO2));路桩线起点
      pt3     (_midpDN pt-01 pt-02 (* sc NO2));路桩线终点
      ang     (- (rad2ang (angle pt3 pt2)) 90.0);路桩文本角度
      pt-text (_midpDN pt-01 pt-02 (* sc (* NO2 1.5)));路桩图块插入点
)[/php]

小钉子

我上边提的一些问题
可以解决吗？？

xyp1964

偶实在是看不懂上面的东东，呵呵……

小钉子

可以给提提意见和建议吗