2013-07-13 明经 AutoLISP 编程②(177027547) 群聊记录：有没有那种修剪 选择直线点击直线一侧及那侧自动修剪; 选择矩形或者封闭的

明经快报

--@----- 00:00:49

有没有那种修剪 选择直线点击直线一侧及那侧自动修剪;  选择矩形或者封闭的PL先 点击内侧或者外出自动修剪

--@----- 00:02:46

如果按下shift即是延伸   不知道这个的工具有没有

--@----- 00:11:05

网上真还有呢 就是没有延伸的功能

明经快报

--@----- 05:45:17

明经快报

和光同尘 08:03:23

呵呵，这个可能是有的

明经快报

[xyz8]咫尺天涯 11:02:46

多谢：Z版

明经快报

和光同尘 13:01:58

看来这个里面还有直播呢

明经快报

[不死猫][nonsmall]不死猫 19:20:17

每周六晚八点半,线上Lisp开发视频直播
本活动永久免费
今晚活动主题isp开发小助手(自动生成lisp代码工具)汉化版现场开发,源码直播
YY频道83001199,欢迎参加
详见http://nonsmall.mjtd.com/

明经快报

[inl] 21:17:04

LISP点去直线第二个点前，能不能看到又有的线呀

明经快报

--@----- 23:46:58

[PHP](defun c:ff( / an dis p p1 p2 s sa ss) 
  (setq ss (ssget) p "" 
        p1 (getpoint " 起点：") 
        p2 (getpoint " 第二点:" p1) 
        an (angle p1 p2) dis (distance p1 p2) 
  ) 
  (setq s (entlast) sa (ssadd)) 
  (command "copy" ss "" p1 p2) 
  (setq s (entnext s)) 
  (while s (ssadd s sa)(setq s (entnext s))) 
  (while (= p "" )
    (setq p (getstring " 空格键继续：") 
          p1 p2 p2 (polar p1 an dis) 
          ss sa 
    ) 
    (setq s (entlast) sa (ssadd)) 
    (if p 
      (command "copy" ss "" p1 p2) 
    ) 
     
    (setq s (entnext s)) 
    (while s (ssadd s sa)(setq s (entnext s))) 
  ) 
  (princ) 
)

--@----- 23:47:45

这个连续复制的代码 哪位高手能增加个记忆上次复制的距离不？

[aa1315684809]雾萦晨阳 23:53:59

(defun  c:test()
  (setq a (getint "请输入一个数字”))
  (setq b (* a a))
  (print b)
)

[aa1315684809]雾萦晨阳 23:54:37

请问为什么我的这个会[qqimg]201307/{376BEE79-56F6-359D-239C-EE98B371B107}.jpg[/qqimg]

求解答