填充的命令始终没理解好，试了各种方法都没成功，希望高手指点一下

qiaogen · 发表于 2011-8-11 17:04:53

(defun c:00()
  (setq basept1(getpoint "\n Enter Base Point 1 Please:"));以下 basept值需要输入
  (setq basept2(getpoint basept1 "\n Enter Base Point 2 Please:"));以下 basept值需要输入
  (setq basept3(getpoint basept2"\n Enter Base Point 3 Please:"));以下 basept值需要输入
  (setq basept4(getpoint basept3 "\n Enter Base Point 4 Please:"));以下 basept值需要输入
  (setq mid-point (inters basept1 basept3 basept2 basept4))
  (command "bhatch" "p" "ansi31" "1" "0" mid-point "")
  ;(setq ss (entlast))
  (command "pline" basept1 basept2 basept3 basept4 "c")
  ;(command "hatch" "ansi31" "2" "0" "w" basept1 basept2 basept3 basept4 "c")
  )

ljpnb · 发表于 2011-8-11 18:39:35

(defun c:tt ()
  (setq basept1 (getpoint "\n Enter Base Point 1 Please:"))
;以下 basept值需要输入
  (setq basept2 (getpoint basept1 "\n Enter Base Point 2 Please:"))
  (grdraw basept1 basept2 7)
;以下 basept值需要输入
  (setq basept3 (getpoint basept2 "\n Enter Base Point 3 Please:"));以下 basept值需要输入
(grdraw basept2 basept3 7)
  (setq basept4 (getpoint basept3 "\n Enter Base Point 4 Please:"));以下 basept值需要输入
  (redraw)
  (setq mid-point (inters basept1 basept3 basept2 basept4))
  (command "pline" basept1 basept2 basept3 basept4 "c")
  (command "-bhatch" "p" "ansi31" 2.0 0 mid-point "")
)

qiaogen · 发表于 2011-8-12 08:27:44

谢谢太感谢了这个论坛果然高手如云太好了

qiaogen · 发表于 2011-8-12 16:54:59

(command "-bhatch" "p" "AR-CONC" 2.0 0 mid-point "")我想填充混凝土怎么不行了呢

账号		自动登录	找回密码
密码			注册

[基础] 填充的命令始终没理解好，试了各种方法都没成功，希望高手指点一下