错误: 参数类型错误: 二维/三维点: nil

行雲

       各位好，这是一段求线段上的点的代码，不太稳定，具体表现在点选竖直线（即y轴走向的线段）时，程序报错误: 参数类型错误: 二维/三维点: nil
打印码(princ "\nAAA，，，")所处位置始不再显示。它上面那行没看出什么问题，不知是不是取线段中点时出问题了，想请各位指出问题所在，谢谢大家
         (setq en (entsel "\n参考边"))
         (setq endata (entget (car en)))
         (setq entyp (cdr (assoc 0 endata)))

         (setq midpt (osnap (cadr en) "mid"))；中点

         (setq endp1 (osnap midpt "end")) ；端点1

         setq endp2 (polar endp1 (angle endp1 midpt) (* (distance endp1 midpt) 2.0))) ；端点2
(princ "\nAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA")
         (command "xline" endp1 endp2 "")

此外 (command "xline" endp1 endp2 "")产生的线，有时会与“参考边”成一定夹角，即从“参考边”上求出来的两个点 endp1 endp2 与实际点发生倾角

行雲

细节：被选"参考边"线段两端均在屏幕显示范围内，可顺利求出。如有一端不在屏显示范围内则报错，真奇怪，，，

st788796

osnap 不一定是期望点，起点、中点、终点用 dxf 或者 vlax-curve 类函数去获取
(setq e (car (ssget "+.:S:E" '((0 . "line")))))
(setq el (entget (ssname e 0)))
(setq sp (cdr (assoc 10 el)));起点
;;(vlax-curve-getstartpoint (ssname e 0));起点
(setq ep (cdr (assoc 11 el)));终点
;;(vlax-curve-getendpoint (ssname e 0));终点
(setq mp (polar sp (angle sp ep) (/ (distance sp ep) 2)));中点

Lisphk

行雲 发表于 2017-2-5 23:47

那你就在PRINC上面那行代码前，你再加个PRINC，打印下下面一行里面的所有的变量值，看看哪个是NIL了，你就知道是哪个变量值不对了。

行雲

Lisphk 发表于 2017-2-5 23:54

三个点都求出来了，我分别在三个点上用代码画了三个圆，都出来了，在打印码下面用代码画。但是就是不稳定，像二楼那情形，，，此外出现倾角的问题也不明甚解

行雲

st788796 发表于 2017-2-5 23:51

谢谢你，我试试，，另外，请教一下，这类;(vlax-curve-getendpoint (ssname e 0))貌似它不叫lsp代码吗？好像它有别的什么叫法，对不?

newer

行雲 发表于 2017-2-6 00:16

VL开头的函数是VLISP， visual lisp， 是AUTOLISP的扩展，功能比AUTOLISP要强大多了。

行雲

newer 发表于 2017-2-6 00:25

谢版主大人，阁下年前对某帖子的大段回复指点，让在下获益良多，再次感谢

行雲

st788796 发表于 2017-2-5 23:51

你好，代码似乎有点问题，请你再帮看看，好不？
(defun c:fx (/ e el sp ep mp)
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
  (while (setq e (car (ssget "+.:S:E" '((0 . "line,polyline")))))
         (setq el (entget (ssname e 0)))
         ;(setq sp (cdr (assoc 10 el)));起点
         (setq sp (vlax-curve-getstartpoint (ssname e 0)));起点
         ;(setq ep (cdr (assoc 11 el)));终点
         (setq sp (vlax-curve-getendpoint (ssname e 0)));终点
         ;(setq mp (polar sp (angle sp ep) (/ (distance sp ep) 2)));中点
         (command "xline" sp ep "")
  )
(princ)
)

另外，请问 "+.:S:E" '是什么意思呀？

LoveArx

行雲 发表于 2017-2-6 01:14

单选，不让你拉动窗口，点不到实体就退出

行雲

LoveArx 发表于 2017-2-6 01:45

你好，请问为什么这样不行啊？
(defun c:fx (/ e el sp ep mp)
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
   (while (setq el (entget (car (entsel "\n参考边"))))
          (setq sp (cdr (assoc 10 el)))
          (setq ep (cdr (assoc 11 el)))
          (command "xline" sp ep "")
   )
(setvar "osmode" os)
(princ)
)

newer

行雲 发表于 2017-2-19 22:49

怎么个不行法？ 把你看得的贴出来告诉大家，也节省别人的时间。

newer

行雲 发表于 2017-2-19 22:49

代码我试了， 选择一个直线， 能画出XLINE，

但是如果不是LINE呢？

你的代码有几个地方有问题

1、(entget (car (entsel)))的问题， entget后面必须是实体名，函数才正常，如果没选到实体，(car (entsel)) 返回的是NIL， 那么 (entget nil) 是要报错终止程序的，你应该在用 entget之前，判断是否取得了实体。应该改为：

(while (setq e (car (entsel "\n参考边")))
  (setq el (entget e))
  (setq sp (cdr (assoc 10 el)))
  (setq ep (cdr (assoc 11 el)))
  (command "xline" sp ep "")
) ;_ end of while

2、你的程序只能适合LINE，因为你用的组名10,11取起点和终点，其他的曲线不是这样定义的。

不知道你说的不行，是不是你选的不是LINE ？

sicky111

学习了。      

行雲

newer 发表于 2017-2-19 23:53

多谢版主，昨天试程序时没关闭CAD重新加载，所以，，，有劳阁下了，谢谢
目前，该程序对多义线无效，求不出多义线中某线段的那两点，不知该怎么改呢？