rakezhao 发表于 2005-4-4 10:27:00

我是新手我做一个平滑的程序，不对，帮我看看

;我是新手我做一个平滑的程序，不对，帮我看看


(defun c:pf()<BR>       (setq cmdecho (getvar "cmdecho"))<BR>       (setvar "cmdecho" 0)<BR>       (if (setq ss (ssget)) (progn<BR>                       (setq i 0)<BR>                       (while (setq en (ssname ss i))<BR>                                       (setq name (cdr (assoc 0 (entget en))))<BR>                                       (if (wcmatch name "*POLYLINE") (command "pedit" en "s" ""))<BR>                                       (setq i (1+ i))<BR>                       ); (while (setq en (ssname ss i))<BR>       ));<BR>       (setvar "cmdecho" cmdecho)<BR>);<BR>

rakezhao 发表于 2005-4-4 11:46:00

1
页: [1]
查看完整版本: 我是新手我做一个平滑的程序，不对，帮我看看