请大虾们帮帮忙啊！

soshuang

我最近写了一个小程序如下： (defun ur ()
(intlines) ；；；计算并取得交点
(setq N (length x))
(command "base") (command "region" (ssget "x" '((8 . "0"))) "")
(setq en (entlast))
(command "area" "o" en)
(setq en (getvar "area"))
(setq unames (getint "\n输入文件名:"))
(setq unames (rtos unames 2 0))
(setq unames (strcat "base" unames))
(setq basename (open "d:/lisp/cname.txt" "a"))
(princ unames basename)
(princ "\n" basename)
(princ N basename)
(princ "\n" basename)
(princ en basename)
(princ "\n" basename)
(close basename)
) 运行的时候为什么会出现“点无效”，导致我无法创建面域并取得面积/？

meflying

(intlines)函数呢？

soshuang

(defun INTLINES (/ SSL PTS AOBJ1 AOBJ2 N1 N2 IPTS A HOLDOSMODE)
(vl-load-com)
(command "UNDO" "be")
(setq ub 0)
(setq HOLDOSMODE (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq SS (ssget "x"))
(setq N1 0
SSL (sslength SS)
)
(while (< N1 (1- SSL))
(setq AOBJ1 (ssname SS N1)
AOBJ1 (vlax-ename->vla-object AOBJ1)
N2 (1+ N1)
) (while (< N2 SSL)
(setq AOBJ2 (ssname SS N2)
AOBJ2 (vlax-ename->vla-object AOBJ2)
IPTS (vla-intersectwith
AOBJ1
AOBJ2
0
)
IPTS (vlax-variant-value IPTS)
) (if (> (vlax-safearray-get-u-bound IPTS 1) 0)
(progn
(setq IPTS
(vlax-safearray->list IPTS)
)
(while (> (length IPTS) 0)
(setq PTS (cons (list (car IPTS)
(cadr IPTS)
(caddr IPTS)
)
PTS
)
IPTS (cdddr IPTS)
)
(setq ub (1+ ub))
)
)
)
(setq N2 (1+ N2))
)
(setq N1 (1+ N1))
)
(print pts) (setq x pts)
(setvar "OSMODE" HOLDOSMODE)
(command "UNDO" "e")
(princ)
)

meflying

(command "base")后面没有输入点参数

soshuang

谢谢提醒