2013-05-14 明经 AutoLISP 编程②群(177027547) 群聊记录：(defun c:mgcd () ;高程注记自动移位 (setv

明经快报

阙 02:05:13

(defun c:mgcd ()    ;高程注记自动移位        
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (command "layer" "off" "assist,zdh" "")
  (setvar "osmode" 0)
  (setq n 0)
  (setq xzj nil)
  (setq xzj (ssget '((0 . "TEXT") (8 . "GCD"))))
  (princ "\n 正在移动高程注记，请等待...")
   (while xzj
    (repeat (sslength xzj)
        (setq ename (entget (ssname xzj n) '("*")))
    (setq cord (assoc 10 ename))
    (command "zoom" "c" (cdr cord) 30 )
    (setq l (nth 0 (cadr (textbox ename))));获取字长
        (setq h (cdr (assoc 40 ename)));获取字高
    (setq dh1 (atof (rtos (nth 3 cord) 2 3)))
    (setq ptx (atof (rtos (nth 1 cord) 2 3)))
    (setq pty (atof (rtos (nth 2 cord) 2 3)))
    (setq x (- ptx (* h 0.6)) y (+ pty (* h 0.6)) x0 (- ptx (* h 0.5)) y0 (+ pty (* h 0.5)) )
    (setq ptx0 (+ ptx (* h 0.3)))
    ;如果高程注记已人为移动了,则不移动
    (setq ssp (ssget "c" (list x0 y0) (list x y) '((0 . "INSERT") (8 . "GCD"))))
    (if (/= ssp nil)
    (progn
    (setq ptx2 (+ ptx l) pty2 (+ pty h))
    (setq sl (ssget "c" (list ptx0 pty) (list ptx2 pty2) '((0 . "INSERT,LWPOLYLINE,POLYLINE,LINE,CIRCLE"))))
    (if (/= sl nil)
    ;第一次循环

明经快报

云 09:12:37

下面的程序输入x 后输出nil.请高手指点。谢谢！
(defun c:mdnum()
  (setvar"cmdecho" 0)
  (setq num1(getreal"\n enterfirst number:"))
  (setq num2(getreal"\n enter second number:"))
  (prompt"Do you want to multiply or divide.Enter M or D:")
  (setq ans( strcase ( getstring)))
  (if (= ans  "m")
  (setq x(* num1  num2))
    )
  (if (= ans "d")
  (setq x(/ num1 num2))
  )
  (if(and(/= ans "d") (/= ans "m"))
  (prompt"sorry! wrong entery,try again")
  )
  (setvar  "cmdecho" 1)
  (princ)                      
  )

明经快报

云 09:24:34

下面的程序输入x 后输出nil.请高手指点。谢谢！
(defun c:mdnum()
  (setvar"cmdecho" 0)
  (setq num1(getreal"  enterfirst number:"))
  (setq num2(getreal"  enter second number:"))
  (prompt"Do you want to multiply or divide.Enter M or D:")
  (setq ans( strcase ( getstring)))
  (if (= ans  "m")
  (setq x(* num1  num2))
    )
  (if (= ans "d")
  (setq x(/ num1 num2))
  )
  (if(and(/= ans "d") (/= ans "m"))
  (prompt"sorry! wrong entery,try again")
  )
  (setvar  "cmdecho" 1)
  (princ)                      
  )

[Student] 09:26:40

把"m"改成"M"
"d"改成 "D"试试

[蔡__洛]不快乐 09:30:55

ssget 的WP模式  必须要保证点表在视口范围内吗？？

明经快报

云 09:44:56

好的，非常感谢！！

这样好了，我不知是为什么

明经快报

[mccad][mccad] 13:07:40

GC：前缀并不是什么专用的东西

你以为象C:或S:那样有意义

明经快报

[叮咚] 14:42:17

[qqimg]oldimg/{3D1053A0-B0DA-DCA5-EE70-65143DFF9960}.jpg[/qqimg]

这是什么原因？

明经快报

[toproc]大鹏追日 20:08:11

咨询个问题，我的dcl界面中有一个popup_list和多个toggle开关，我想实现我选择popup_list中的不同项时，界面中toggle的默认设置随之而变化。
怎么实现呢？有没有这一类的例子。
谢谢！

明经快报

[toproc]大鹏追日 20:33:30

咨询个问题，我的dcl界面中有一个popup_list和多个toggle开关，我想实现我选择popup_list中的不同项时，界面中toggle的默认设置随之而变化。
怎么实现呢？有没有这一类的例子。
谢谢！

明经快报

[ZZXXQQ] 20:53:31

用action_tile响应popup_list运行子程序set_tile改动toggle值

[toproc]大鹏追日 20:55:55

非常感谢！懂了