[求助]：如何在程序过程中让用户绘制spl线？

lqdcwnui

我想用grread和entmod实现，但是不知道dxf码10和40的数值是如何得到。所以无法实现

望高手指点

这种方法可以画，但是预览不到spl线

(setq roadt t)
   
    (command "spline")
(while roadt
  (setq roadp  (GRREAD T 4 0))
  (if (= (car roadp) 3)
(command (cadr roadp))
)
  (if (and (/= (car roadp) 5 )(/= (car roadp) 3))
    (setq roadt nil))
  )
(command "")
(command "")
(command "")

1239918

写的也可以吗 努力呦

zml84

不使用“entmod”亦可实现预览，请试一试下面的东东：
[PHP]
(defun c:test (/ cmd_old pt0 pt1)
        (setq cmd_old (getvar "cmdecho"))

        (setvar "cmdecho" 0)
        (if (setq pt0 (getpoint "\n指定第一个点:"))
                (if (setq pt1 (getpoint pt0 "\n指定下一点:"))
                        (progn
                                (command "_spline" pt0 pt1)
                                (setvar "cmdecho" 1)
                                (while (/= 0 (getvar "cmdactive"))
                                          (command pause)
                                )
                                (princ "\n★成功完成spl★")
                        )
                )
        )

        (setvar "cmdecho" cmd_old)
        (princ)
)
[/PHP]
CAD已经实现的东西，没必要再做一个出来，除非是为了研究。。
学习lisp原则就是，实现就好，能整合他人的函数就是一种创新。这也是lisp语言的精髓所在。