成双成对(不断更新......)

自贡黄明儒

成双成对(不断更新......)
Lisp编程中，有些函数是成双成对的出现，我举个例子，当是抛砖引玉了，希望大家不断完善，利己利人。
1 shortcutmenu initget
  (setvar 'shortcutmenu 11)这样随后的(initget "mC mL mR")才能弹出右键菜单
2 (redraw) (grdraw p1 p2 1 1)(或者grvecs)
  (redraw)须写在前面，grdraw写在后面
3 (setvar "DIMZIN" 0) (rtos RealNum 2 n) n小数位数
  想取得小数位数，先得(setvar "DIMZIN" 0)

ymcui

李钊伟2012 发表于 2020-8-8 11:24
entmod 和subst 算一对吗哈哈哈哈？顺便请教下，这个运行不了怎么回事2014和2016都一样

(defun c:QX(/ ptX ss enT i)
  (if (and (setq ptx (car (getpoint"\n水平对齐点:")))
        (setq  ss (ssget '((0 . "text"))))
      )
    (repeat (setq i (sslength ss))
      (setq enT (entget(ssname ss (setq  i (1- i)))))
      (entmod (subst (list 10 ptx (cadr (CDR (assoc 10 ent)))) (assoc 10 ent) ent))
    )
  )
(princ)
)

自贡黄明儒

捕捉开始、结束标记
[pre]
;;190.1 捕捉开始
(defun _StartOsmode (/ L LST)
  (setq L '("Autosnap" "osmode" "polarmode" "polarAng" "Gridmode" "snapstyl" "snapmode"))
  (foreach x L
    (setq Lst (cons (cons x (getvar x)) Lst))
  )
  (setenv "MyOsmode" (VL-PRIN1-TO-STRING Lst))
  (setvar "osmode" (+ (rem (getvar "osmode") 16384) 16384)) ;关闭捕捉.
)

;;190.2 捕捉结束
(defun _EndOsmode (/ L)
  (cond
    ((setq L (getenv "MyOsmode"))
     (setq L (read L))
     (mapcar '(lambda (x) (cond ((cdr x) (setvar (car x) (cdr x))))) L)
    )
  )
  (setvar "osmode" (rem (getvar "osmode") 16384))            ;打开捕捉.
)
[/pre]

pengfei2010

你写的我一个都不知道。。。还真没注意

李钊伟2012

(defun c:DQX(/ ptX PC ss enT i) (if (setq ptx(car(getpoint"\n水平对齐点:")) i 0 ss(ssget '((0 . "text")))) (progn (repeat (sslength ss)  (setq enT(entget(ssname ss i)) i(1+ i) pc(assoc 10 ent)) (entmod(subst (cons 10(LIST PTx(CADR(CDR PC))))PC ent))(princ)))))

李钊伟2012

entmod 和subst 算一对吗哈哈哈哈？顺便请教下，这个运行不了怎么回事2014和2016都一样

xvjiex

感谢黄大师开了一个好头！

czb203

感谢黄大师开了一个好头！

czb203

感谢黄大帅开的好头

itoboy

楼主想法不错，坐等其他大神发表意见

李钊伟2012

还是不行，没有反应啊