2013-07-28 明经 AutoLISP 编程(102918348) 群聊记录：谁知道注释性怎么用的？

明经快报

[dcl1214]昌立 00:13:34

谁知道注释性怎么用的？

明经快报

[pzweng][pzweng]路人 01:48:52

[500w008]500w008 01:55:13

明经快报

[500w008]500w008 04:20:22

(defun c:cc ( / sss si i pt1 pt2 pt_10 pt_11 ptlt pt_in )
 (setvar "osmode" 0)
 (setvar "cmdecho" 0)
 (graphscr)
 (setq pt1 (getpoint "\n 请输入点pt1:"))
 (setq pt2 (getpoint "\n 请输入点pt2:"))
 (setq sss (ssget "f" '((0 . "line") (8 . "*doet*,*axis*"))))
 (setq si 0 i 0 ptlt'())
 (repeat (sslength sss)
   (progn
     (setq pt_10 (cdr (assoc 10 (entget(ssname sss si)))))
     (setq pt_11 (cdr (assoc 11 (entget(ssname sss si)))))
     (setq pt_in (inter pt1 pt2 pt_10 pt_11))
     (setq ptlt (cons pt_in ptlt))
   )
  (setq si (1+ si))
 )
  (while (setq pt_n (ssname ptlt i))
     (setq g_lst (cons (cdr (assoc 10 (entget pt_n))) g_lst) i (1+ i))
  )
 (setq nlt (vl-sort lst '(lambda (e1 e2) (< (car e1) (car e2)))))
 (princ)
)
(defun wr_l ()
(if (=> dis_1 dis_n) (setq 0.25d (/ dis_1 4)) (setq 0.25d (/ dis_n 4)))
(setq ang_g (angle pt1 pt2))
(setq pt_z (polar pt_in ang_g 0.25d)
      pt_y (polar pt_in ang_g (* -1 0.25d))
      pt_gz (polar pt_z (+ ang_g 45) 75)
      pt_gy (polar pt_y (+ ang_g 135) 75)
)
 
(command "pline"  pt_gz pt_z pt_y pt_gy "")
(princ)
)

明经快报

[500w008]500w008 04:49:27

10 (entget pt_n))) g_lst) i (1+ i))
  )
 (setq nlt (vl-sort lst '(lambda (e1 e2) (< (car e1) (car e2)))))
 (princ)
)
(defun wr_l ()(if (=> dis_1 dis_n) (setq 0.25d (/ dis_1 4)) (setq 0.25d (/ dis_n 4)))
(setq ang_g (angle pt1 pt2))
(setq pt_z (polar pt_in ang_g 0.25d)
      pt_y (polar pt_in ang_g (* -1 0.25d))
      pt_gz (polar pt_z (+ ang_g 45) 75)
      pt_gy (polar pt_y (+ ang_g 135) 75)
      pt_tz (polar pt_z ang_g (* 0.25d 0.5))
      pt_ty (polar pt_z ang_g (* 0.25d -0.5))
      pz_z  (polar pt_tz (+ ang_g 90) 100)
      pz_y  (polar pt_ty (+ ang_g 90) 100) 
)
(tx_bj pz_z (* 0.25d 0.5))
(tx_bj pz_y (* 0.25d 0.5))
(command "pline"  pt_gz pt_z pt_y pt_gy "")
(setq flj (entlast))
(co(defun c:cc ( / sss si i pt1 pt2 pt_10 pt_11 ptlt pt_in )
 (setvar "osmode" 0)
 (setvar "cmdecho" 0)
 (graphscr)
 (COMMAND "LAYER" "MAKE" "flj" "COLOR" "2" "flj" "LT" "continuous" "flj" "")
 (setq pt1 (getpoint "\n 请输入点pt1:"))
 (setq pt2 (getpoint "\n 请输入点pt2:"))
 (setq sss (ssget "f" '((0 . "line") (8 . "*doet*,*axis*"))))
 (setq si 0 i 0 ptlt'())
 (repeat (sslength sss)
   (progn
     (setq pt_10 (cdr (assoc 10 (entget(ssname sss si)))))
     (setq pt_11 (cdr (assoc 11 (entget(ssname sss si)))))
     (setq pt_in (inter pt1 pt2 pt_10 pt_11))
     (setq ptlt (cons pt_in ptlt))
   )
  (setq si (1+ si))
 )
  (while (setq pt_n (ssname ptlt i))
     (setq g_lst (cons (cdr (assocmmand "chrop" flj "la" flj "")
(princ)
)

(defun tx_bj (pzy sz / );创建文字
(entmake (list '(0 . "TEXT");字形式TEXT MTEXT
               '(100 . "AcDbEntity") 
               '(100 . "AcDbTex")
               '(70 . 0) 
               '(7 . "STANDARD")
                (cons 2 name) 
                (cons 1 sz) 
                (cons 40 300);字高 
                (cons 41 0.7)
                (cons 11 pzt) 
               '(3 . "romans.shx") 
               '(4 . "Hztxts.shx")
        )
)
 (princ)
)

明经快报

[springwillow]孤帆 07:49:34

晚上不睡觉啊

明经快报

[野狼谷]笨鸟 08:48:13

哥们辛苦！
建议最好把你的函数功能在第一行写出来，例如：
;;功能：创建一个文字类型，并根据插入方向进行文字方向调整  之类的话；
中间语句如果比较复杂一点，最好能注释一下，这样将来你自己维护也方便很多；

[野狼谷]笨鸟 08:50:23

命令: cc
 请输入点pt1:
 请输入点pt2:; 错误: 错误的点列表

明经快报

[啵浪鼓] 10:31:41

[qqimg]201307/{97F6DF40-984A-7C6A-9399-ACACFFF22641}.gif[/qqimg]

明经快报

[野狼谷]笨鸟 10:46:59

NB

[啵浪鼓] 10:50:33

大学毕业以后 很快就是美籍华人 ，因为你们想拿到中国给的科研经费 估计你们都要60岁 以后了。
中国科学院 都是一群7 80岁的老头老太太，不知道每年给他们那么对科研经费干嘛？研究养老秘籍啊！
钱应该给 年轻人。

美国有 比尔盖茨， 乔布斯， 艾龙·马斯科 都是改变人类未来的人
我们有 马化腾    马云   李彦宏  都是山寨中的战斗机 他们留给未来 就2个字---剽窃

[111118528]精灵 10:57:02

这样个观点太片面，如果可以这样说，那原来搞侵略的国家全是抢夺来的， 胜者为王败者为寇

明经快报

[cindy_fisher] 11:23:07

谁能上国外网站啊

[lrd1861][lrd1861]-笗天- 11:25:06

翻墙

[cindy_fisher] 11:25:30

请教方式

怎么操作

[野狼谷]笨鸟 11:31:21

胜者王侯败者寇

明经快报

[500w008]500w008 13:26:26

(defun tx_bj (pzy sz / );创建文字
(entmake (list '(0 . "TEXT");字形式TEXT MTEXT
               '(100 . "AcDbEntity") 
               '(100 . "AcDbTex")
               '(70 . 0) 
               '(7 . "STANDARD")
                (cons 2 name) 
                (cons 1 sz) 
                (cons 40 300);字高 
                (cons 41 0.7)
                (cons 11 pzt) 
               '(3 . "romans.shx") 
               '(4 . "Hztxts.shx")
        )
)
 (princ)
)