把此贴删除

500w008 · 发表于 2013-4-16 00:05:37

提示: 作者被禁止或删除内容自动屏蔽

ZZXXQQ · 发表于 2013-4-16 08:46:11

(defun c:a ()
(setq lst (ssget "X" '((0 . "POINT"))))
(setq i -1)
(repeat (sslength lst)
(setq en (ssname lst (setq i (1+ i))))
(z6 (cdr(assoc 10 (entget en))))
)
(princ)
)
(defun Z6 (pm / )
(setvar "cmdecho" 0)
(graphscr)
(setq xp (* (sqrt 2) (/ 600 2))
xp1 (polar pm (/ pi 4) xp)
xp2 (polar pm (/ pi -4) xp)
xp3 (polar pm (/ pi 4) (- xp))
xp4 (polar pm (/ pi -4) (- xp))
)
(COMMAND "LAYER" "MAKE" "colu" "COLOR" "4" "colu" "")
(command "pline" xp1 "W" 0 0 xp2 xp4 xp3 "c")
(setvar "CMDECHO" 1)
(princ)
)

500w008 · 发表于 2013-4-16 16:23:21

提示: 作者被禁止或删除内容自动屏蔽

yoyoho · 发表于 2013-4-16 17:51:19

500w008 发表于 2013-4-16 16:23
如果按照 lambda 形式改呢

;;;批量選點寫柱--求更正
(defun c:a4 ()
(setq lst (ssget "X" '((0 . "POINT"))))
(setq lstp (mapcar '(lambda (x) (cdr x)) (qq-ss2lst lst 10)))
         (mapcar '(lambda (x) (z6 x)) lstp)
(princ)
)
(defun Z6 (pm / )
  (setvar "cmdecho" 0)
  (graphscr)
  (setq gas (/ pi 180)
      xp (* (sqrt 2) (/ 600 2))
      xp1 (polar pm (* gas 45) xp)
      xp2 (polar pm (* gas -45) xp)
      xp3 (polar pm (* gas 135) xp)
      xp4 (polar pm (* gas -135) xp)
  )
(COMMAND "LAYER" "MAKE" "colu" "COLOR" "4" "colu" "")
  (command "pline" xp1 xp2 xp4 xp3 "c")
  (setq jds (entlast))
  (command ".chprop" jds "" "LA" "colu" "")
  (command "PEDIT" "M" jds "" "W" 0 "")
  (princ)
)

(defun qq-ss2lst (SS S0 / lst n ssnamen)
  (setq n -1
lst '()
  )
  (while (and
         (setq ssnamen (ssname ss (setq n (1+ n))))
         (setq ss-11 (cdr (assoc S0 (entget ssnamen))))
         )
(setq lst (cons (append (list ssnamen) ss-11) lst))
  )
  (reverse lst)
)

账号		自动登录	找回密码
密码			注册

[讨论] 把此贴删除

评分

评分

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2013-4-16 00:05:37 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2013-4-16 16:23:21 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡