标尺刻度程序出错求解决

zwqgdhl

(defun c:abbg ()
(setvar "cmdecho" 0)
(setq dim (getvar "dimzin"))
(setvar "dimzin" 0)
(command "osnap" "non")
(defun 3dPoint->2dPoint (3dpt)(list (car 3dpt) (cadr 3dpt)));;;三维点转为二维点
(setq s-bc-a (entsel "\n<起点标尺>"))
(setq bc-a-endata (entget (car s-bc-a)))
(setq s_typ (cdr (assoc 0 bc-a-endata)));;;文字类型
(setq bc-a-data (cdr (assoc 1 bc-a-endata)));;;刻度数值
(setq bc-a-xy (cdr (assoc 10 bc-a-endata)));;;刻度坐标xy
(setq bc-a-x (car bc-a-xy))
(setq bc-a-y (cadr bc-a-xy))
(setq bc-a-pt (list bc-a-x bc-a-y))
(setq bc-a-text (cdr (assoc 7 bc-a-endata)));;;刻度字体
(setq bc-a-data (atof bc-a-data));;;第一刻度值

(setq s-bc-b (entsel "\n<第二点标尺>"))
(setq bc-b-endata (entget (car s-bc-b)))
(setq bc-b-data (cdr (assoc 1 bc-b-endata)));;;刻度数值
(setq bc-b-xy (cdr (assoc 10 bc-b-endata)));;;刻度坐标xy
(setq bc-b-x (car bc-b-xy))
(setq bc-b-y (cadr bc-b-xy))
(setq bc-b-pt (list bc-b-x bc-b-y))
(setq bc-b-text (cdr (assoc 7 bc-b-endata)));;;刻度字体
(setq bc-b-data (atof bc-b-data));;;第二刻度值

(setq ab (- bc-b-data bc-a-data))
(setq s-ab (distance bc-a-pt bc-b-pt));;;图上二点距离
(if (> bc-b-y bc-a-y) (setq pi-p (* pi 0.5)))
(if (< bc-b-y bc-a-y) (setq pi-p (* pi -0.5)))

;;(if (> bc-b-x bc-a-x) (setq pi-p (* pi 0)))
;;(if (< bc-b-x bc-a-x) (setq pi-p (* pi 1)))

(setq s-n 1)
(setq s-bb (ssget "c" (polar bc-b-pt (* pi 1.01) 1) (polar bc-b-pt (* pi 0.1) 1)))
;;;(command "osnap" "int,endp")
(setq base-pt (getpoint "\n<点击>可视范围要超前"))
(while base-pt
      (setq bc-c-pt (polar bc-b-pt pi-p (* s-ab s-n)));;;几倍
      (setq bc-c-data (rtos (+ bc-b-data (* ab s-n)) 2 0));;;第三刻度值
      (command "copy" s-bb "" bc-b-pt bc-c-pt "")
      (setq ss (ssget "c" (polar bc-c-pt (* pi 1.01) 1) (polar bc-c-pt (* pi 0.1) 1)))
      (setq ssn (ssname ss 0))
      (setq ss-endata (entget ssn))
      (setq ss-2 (assoc 1 ss-endata))
      (setq ss-22 (cons 1 bc-c-data))
      (setq ss-endata (subst ss-22 ss-2 ss-endata))
      (entmod ss-endata)
      (setq s-n (+ s-n 1))
      (setq base-pt (getpoint "\n<点击>可视范围要超前"))
)
(gc)
(command "osnap" "int,endp")
(prin1)
)


上面这个程序是本人以前编写的，用于补充剖面图标尺上下两边的刻度
以前很长时间都是很好用的，以后机子换装系统后重装cad后就不好用了
运行后老提示           错误: 参数类型错误: lselsetp nil
我一直不得其解，望高人指出程序错在哪里，还我工作速度

jicqj

出错原因　应该在图纸的不同上面。或者程序本身有缺项。跟你的电脑系统无关吧。把测试的ｃａｄ图纸也发上来看看。

zwqgdhl

图纸发上来也不可能看到图纸作图环境，我估计程序运行出错可能跟CAD的图纸环境有关，但如果一个好的程序是可以适应各种不同CAD作图环境的呀，我其它程序都不会出错

zwqgdhl

程序基本思路就是点选标尺第一刻度值，再点选第二刻度值，通过程序自己运算，得到第三刻度值并标在标尺上它应该处的位置，以此类推第四、第五、、、刻度

zwqgdhl

估计是新作图环境使选择集时出错，但我看不出究竟

Andyhon

      ;; 第三刻度值
    (command "copy" s-bb "" bc-b-pt bc-c-pt "")
==>
    (command "copy" s-bb "" bc-b-pt bc-c-pt)

zwqgdhl

谢谢论坛长老，但不是这个原因

Andyhon

错误: 参数类型错误: lselsetp nil
是选空了
参考这儿
http://bbs.mjtd.com/thread-88103-1-1.html

zwqgdhl

谢谢论坛长老，我也知道是选集问题，我会一点一点试验想方法解决的