2013-05-22 QQ群：ALISP＆VLISP(143438137) 聊天记录：修改过滤条件

CCarch

街角De幸福(411746325)于2013-05-22 14-26-43：
签到

CCarch

街角De幸福(411746325)于2013-05-22 14-37-42：
addbox的方法可以得到一个盒子，用什么方法或属实可以得到这个盒子的尺寸

CCarch

长风（龙少）(8240891)于2013-05-22 14-44-56：
(defun c:dww ()
  (setvar "CMDECHO" 0)
  (setq  p1 (getpoint "\n第一点：")
  p2 (getpoint p1 "\n第二点：")
  )
;;;两点距离
  (princ
    (strcat "\n****两点距离:" (rtos (distance p1 p2) 2 3))
  )
;;;等分数量：
  (setq n (getint "\n等分数量:"))
;;;等分子函数，根据两点点及等分数量得出等分点列表
  (defun tt-df (p1 p2 n)
    (if  (> (1- n) 0)
      (cons (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))
      (tt-df (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))
       p2
       (1- n)
      )
      )
    )
  )
;;;等分点列表
  (setq lst (tt-df p1 p2 n))
;;; 起点、终点、等分点处画园
  (mapcar '(lambda (x) (vl-cmdf "CIRCLE" x 1.0))
    (append (list p1) lst (list p2))
  )
  (prin1)
)
这段代码我想将圆变成点的方式。如何改？

xiaoyuzj503

。(184491657)于2013-05-22 14-45-09：
簽到

CCarch

孤狼(2247570310)于2013-05-22 14-59-22：
为啥用lisp编写的程序画出的封闭区间进行图案填充时，缺无法进行啊如下面的程序：(defun c:a()
  (setq p0 (getpoint "\n请选择一点"))
(setq p1 (polar p0 (* 0.5 pi) 10))
  (setq p2 (polar p1 0 10))
  (setq p3 (polar p2(* -0.5 pi)  10))
(command "pline" p0 p1 p2 p3 "c")
  (cnn))
  (defun cnn ()
  (setq a (getpoint "\n请选择封闭区间的内部一点"))
  (command "boundary" a "")
  (command "hatch" "ansi31" "20" "0"  "L" "")
  (PRINC)
)

CCarch

孤狼(2247570310)于2013-05-22 14-59-56：
这个问题，哪位大仙帮忙解决一下

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-22 15-00-23：
群主都说让你发到论坛里了

CCarch

孤狼(2247570310)于2013-05-22 15-00-54：
哦

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-22 15-01-54：
你这个程序 我用着好使

CCarch

孤狼(2247570310)于2013-05-22 15-02-03：
我想赶快解决这个问题

CCarch

孤狼(2247570310)于2013-05-22 15-02-15：
可我这怎么不行呢

炫翔

炫翔(2363673534)于2013-05-22 15-02-41：
"hatch">>
"_.hatch"

炫翔

炫翔(2363673534)于2013-05-22 15-03-06：
顺便把捕捉关掉

CCarch

孤狼(2247570310)于2013-05-22 15-03-41：
用lisp编写的封闭区间，无法用上面的程序进行的

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-22 15-04-51：
你这程序运行完之后 画一个矩形 然后运行一个很普通的填充
你是不是想画完矩形立马就填充