能解释(assoc 40 en_data) 中的40 有时 50 ？？

bearbear1

   (setq en (entsel "選取已知圓:")) ;要求碰選一個圓

   ;;;;以下為圖元資料&半徑資料取得

   (setq en_data (entget (car en))) ;取得元體資料串列

   (setq old_rad_list (assoc 40 en_data));取得半徑子串列

   (setq old_rr (cdr rad_list))           ;取得舊有半徑

  

另一个

好像是取角度的

 

(assoc 50 en_data)

另一个

(assoc 70 en_data)

 

等等，

 

 

 

现想请教的是40，50，70  是什么意思，或从哪些资料上了解，好像是系统自己定义的 

 

很困或

 

 

bearbear1

(defun c:xz ()
(prompt"\n 请选择需要旋转的块")
(if(setq s(ssget(list(cons 0"insert"))));择要旋转的块
(progn
  (setq s (ssname s 0) s (entget s) sj 0);获取要选择块的属性表
  (while t
    (setq s (subst (cons 50 sj) (assoc 50 s) s));不断修改块的旋转角度(弧度表示)
    (entmod s);修改块的旋转角度后马上更新，否则……:－D
    (command "delay" "1000");确定显示时间,显示一段时间后再次修改组码50对应的值，即块的旋转角度
    (setq sj (- sj -5));每次旋转0.2弧度
    );while

);progn
(prompt"\n 请选择需要旋转的块")
);if
);fun

liu_kunlun

帮助->开发人员帮助->DXF参考->entities段

bearbear1

多谢

 

 

bearbear1

明白了，

aicr317

 

从关联表中搜索一个元素，如果找到则返回该关联表条目

(assoc element alist)

参数

element

关联表中的关键元素。

alist

要搜索的关联表。

返回值

如果成功则返回找到的关联表条目，如果找不到则返回 nil。

示例

命令: (setq al '((name box) (width 3) (size 4.7263) (depth 5)))

((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5))

命令: (assoc 'size al)

(SIZE 4.7263)

命令: (assoc 'weight al)

nil

 

 

bearbear1