LISP 相关话题

(defun C:zsx (/ a ent ent1 et lineangle linelist1 linelist2 linept1 linept2 n name s)  (princ "\n选拔需旋转的翰墨：") 开发物联网软件一般需要多少钱 (setq s (ssget '((0 . "TEXT")) ))  (setq et (entget (car (entsel "\n选拔角度线:")

app开发 (defun c:pilpy ()湖南管理系统开发  (setq n (getint "\n输入偏移加多量："))    (if (setq ss (ssget ":S" '((0 . "Arc,Circle,Ellipse,*Line"))))     (progn       (vlax-for obj (vla-get-activ

(defun c:pilpy ()软件开发公司  (setq n (getint "\n输入偏移增多量："))    (if (setq ss (ssget ":S" '((0 . "Arc,Circle,Ellipse,*Line")))) 龙头分析：上期龙头开出1区号码05，与前期比对点位上升，本期关注龙头点位下降，推荐03。     (progn