谁能写燕秀的这两个功能?

bikeboy

原马应该有的 找找看看

120120

论坛上的都不像他那样的.

中心线他的可以框选的.论坛上找的都不都框选,要单一选择很麻烦

表面粗糙度他的可以自动识别方位.斜线时会自动跟斜线平行的.输入大小比例很方便.还要表面粗糙度什也很方面.

总的来说燕秀的功能比较人性化和智能化..

120120

没会人啊/?我晕

xyp1964

;;; 中心线
(defun c:test ()
  (CMDLA0)
  (setq ukw (UKWORD 7 "1 2" "中心线方式: 1-实体/2-选择集" ukw)
 ss  (ssget)
 i   -1
  )
  (xyp-MkLaCo "中心线" 1)
  (setvar"osmode"0)
  (cond ((= ukw "1")
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (command "select" s1 "")   
    (aaa (ssget "p"))
  )
 )
 ((= ukw "2")
  (aaa ss)
 )
  )
  (CMDLA1)
)
(defun aaa (ssel / pts pt2 pt4 pt6 pt8)
  (setq pts (xyp-get-SSMinMaxPts ssel)
 pt2 (nth 1 pts)
 pt4 (nth 3 pts)
 pt6 (nth 5 pts)
 pt8 (nth 7 pts)
  )
  (command "line" pt2 pt8 "")
  (command "line" pt4 pt6 "")
)

Jeff101217

版主可不可以把这两个程序的地址发出来啊~很不好找啊

120120

 test ; 错误: no function definition: CMDLA0

test ; 错误: no function definition: UKWORD

有误啊!老大!

liaopoppy

好东西…………

samshs

不能用

功夫佬

用不了，还是要一些支持文件吧

功夫佬

xyp1964 发表于 2007-8-12 01:12
;;; 中心线(defun c:test ()  (CMDLA0)  (setq ukw (UKWORD 7 "1 2" "中心线方式: 1-实体/2 ...

(CMDLA0)
我想请教一下你这个是做什么用的cmdla0