[编程交流] 通过拾取x值绘制三维样条线

(defun c:pltx(/ ) 
 ;;;;;;;;;;;;;;;;;;;;
 (command "._3dpoly")
 (while (eq 1 (logand 1 (getvar "cmdactive")))
  (if a
    (progn
      (princ"pick x value")
 (setq x (ssget))
 
(setq oldobj1 (entget (ssname x 0)))      
(setq txtstr1 (assoc 1 oldobj1))
 (setq xv (atof(cdr txtstr1)))
  (princ xv)
 (princ"pick y value")     
 (setq y (ssget))
(setq oldobj2 (entget (ssname y 0)))      
(setq txtstr2 (assoc 1 oldobj2))
 (setq yv (atof(cdr txtstr2)))
  (princ yv)
 (princ"pick z value")     
(setq z (ssget))
(setq oldobj3 (entget (ssname z 0)))      
(setq txtstr3 (assoc 1 oldobj3))
 (setq zv (atof(cdr txtstr3)))
  (princ zv)
 (setq a(list xv yv zv))
      
 )
 
 ;;;;;;;;;;;;;;;;;;;;;;;
    (progn
  (princ"pick start x value")     
 (setq x (ssget))
 
(setq oldobj1 (entget (ssname x 0)))      
(setq txtstr1 (assoc 1 oldobj1))
 (setq xv (atof(cdr txtstr1)))
  (princ xv)
  (princ"pick start y value")
 (setq y (ssget))
(setq oldobj2 (entget (ssname y 0)))      
(setq txtstr2 (assoc 1 oldobj2))
 (setq yv (atof(cdr txtstr2)))
  (princ yv)
 (princ"pick start z value") 
(setq z (ssget))
(setq oldobj3 (entget (ssname z 0)))      
(setq txtstr3 (assoc 1 oldobj3))
 (setq zv (atof(cdr txtstr3)))
  (princ zv)
 (setq a(list xv yv zv))   
 )
    )
    ;;;;;;;;;;;;;;;;;;;;;
 
  (if a 
 (command a)
  (command)             
 ) 
    )
 
 (princ)
)

(defun c:pltx ( / pt )
   (if (setq pt (gettextpoint))
       (progn
           (command "_.3dpoly" "_non" pt)
           (while (setq pt (gettextpoint))
               (command "_non" pt)
           )
           (command "")
       )
   )
   (princ)
)
(defun gettextpoint ( / x y z )
   (if
       (and
           (setq x (getnumericaltext "\nSelect X-Value Text <Exit>: "))
           (setq y (getnumericaltext "\nSelect Y-Value Text <Exit>: "))
           (setq z (getnumericaltext "\nSelect Z-Value Text <Exit>: "))
       )
       (list x y z)
   )
)
(defun getnumericaltext ( msg / ent enx num )
   (while
       (progn (setvar 'errno 0) (setq ent (car (nentsel msg)))
           (cond
               (   (= 7 (getvar 'errno))
                   (princ "\nMissed, try again.")
               )
               (   (= 'ename (type ent))
                   (setq enx (entget ent))
                   (cond
                       (   (not (wcmatch (cdr (assoc 0 enx)) "TEXT,MTEXT,ATTRIB"))
                           (princ "\nPlease select Text, MText or Attribute.")
                       )
                       (   (not (setq num (distof (cdr (assoc 1 enx)))))
                           (princ "\nSelected text is not numerical.")
                       )
                   )
               )
           )
       )
   )
   num
)