(XD::ptfz lst)点表批量赋值

csy0415

(defun XD::ptfz (lst / i)
(setq i 1)
(mapcar
  '(lambda (x)
   (set (read (strcat "ptmmm" (itoa i))) x)
    (setq i (1+ i))
  )
  lst
)
(princ)
)

炫翔

"ptmmm" 放在外面，应该更好控制些

2. ;(XD::lst::set "pt" '((0.0 0.0 0.0)(1.0 2.0 0.0)))
   
3. ;(XD::lst::set "lst-" '(1 2 3))
   
4. (defun XD::lst::set (varName lst / i)
   
5.         (setq i 0)
   
6.         (mapcar
   
7.                 (function
   
8.                         (lambda (x)
   
9.                                 (set (read (strcat varName (itoa (setq i (1+ i))))) x)
   
10.                         )
    
11.                 )
    
12.                 lst
    
13.         )
    
14.         i
    
15. )
    

;(XD::lst::set "pt" '((0.0 0.0 0.0)(1.0 2.0 0.0)))<br /> ;(XD::lst::set "lst-" '(1 2 3))<br /> (defun XD::lst::set (varName lst / i)<br />         (setq i 0)<br />         (mapcar<br />                 (function<br />                         (lambda (x)<br />                                 (set (read (strcat varName (itoa (setq i (1+ i))))) x)<br />                         )<br />                 )<br />                 lst<br />         )<br />         i<br /> )<br />

csy0415

炫翔 发表于 2018-12-13 19:26
"ptmmm" 放在外面，应该更好控制些

嗯   放在外面  便于根据不同需求修改变量名称，我改下。

sicky111

谢谢分享。